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3. 3. 6. 3  STANDARD_TRI G  (BODY)  TLCSC  P683  (CATALOG  #P2-0) 

This  package  provides  a  set  of  standard  trigonometric  functions.  The  functions 
provided  are  sine,  cosine,  sine-cosine,  tangent,  arcsine,  arccosine, 
arcsine-arccosine,  and  arctangent. 

This  package  body  implements  the  above  functions  by  instantiating  the  packages 
contained  in  the  Polynomials. System_Functions  package. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 3.1  REQUIREMENTS  ALLOCATION 

The  following  table  illustrates  the  allocation  of  requirements  to  units  in  this 
part: 


|  Name  |  Type  |  Requirements  Allocation  | 


Sin 

1 

function 

1 

R086, 

R092, 

R098 

Cos 

1 

function 

R087, 

R093, 

R099 

Sin  Cos 

procedure 

R086, 

R087, 

R092 

1 

1 

R093, 

R098, 

R099 

Tan 

1 

function 

1 

R088, 

R094, 

R100 

ArcSin 

1 

function 

1 

R089, 

R095, 

R101 

ArcCos 

1 

function 

1 

R090, 

R096, 

R102 

ArcSin  ArcCos 

1 

procedure 

1 

R089, 

R090, 

R095 

1 

R096, 

R101, 

R102 

ArcTan 

1 

function 

R091, 

R097, 

R103 

ArcTan2 

I 

function 

1 

N/A 

3. 3. 6. 3. 2  LOCAL  ENTITIES  DESIGN 
Subprograms : 

The  following  table  describes  the  operators  defined  by  this  part: 


Name 

|  Left  Input 

1  Type 

Right  Input 

1  Type 

1 

|  Result  Type 

n*n 

|  Semicircles 

|  Radians 

|  Radians 

n*ti 

j  Radians 

|  Radians 

j  Semicircles 

«*» 

|  Sin  Cos  Ratio 

|  Sin_Cos_Ratio 

j  Sin_Cos_Ratio_Squared 

Packages : 

The  following  table  describes  the  packages  contained  in  this  part: 
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!  Name 


Description 


RadianOpns 

Semicircle_Opns 

Degree_Opns 

Radian_Sqrt 

Semicircle_Sqrt 

Degree_Sqrt 


Locally  instantiated  version  of  Polynomials. System 
Funct ions.  Radian_Operat ions 
Locally  instantiated  version  of  Polynomials. System_ 
Functions .  Semicircle_Operations 
Locally  instantiated  version  of  Polynomials. System_ 
Func t i ons .  Degree_Opera t ions 
Locally  instantiated  version  of  Polynomials. System_ 
Functions.  Square_Root 

Locally  instantialed  version  of  Polynomials. System_ 
Functions . Square_Root 

Locally  insU  '■.ialed  version  of  Polynomials. System_ 
Funct ions. Squar e_Roo t 


3. 3. 6. 3. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  in  this  part's 
specification: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part:  ^ 


|  Name  | 

Type 

Description 

1 

|  Angle  | 

1  "  1 

|  Trig  Ratio  | 

1  1 

floating 
point  type 
floating 
point  type 

Used  to  determine  precision  of 
Semicircles,  and  Degrees 

Used  to  determine  precision  of 
Sin_Cos_Ratio  and  Tan_Ratio 

type  Radians, 

type 

Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part: 


j  Name 

1  Type  | 

Value 

|  Description  | 

|  pi  value 

1  Angle  | 

N/A 

|  Value  to  be  used  for  pi  | 

3. 3. 6. 3. 4 

LOCAL  DATA 

Data  types: 

The  following  table  describes  the  data  types  previously  defined  in  the  package 
specification  of  Standard_Trig; 
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|  Name  j  Base  Type  |  Range  j  Description 


Radians 

1 

Angle 

1  -OO  . .  +00 

Semicircles 

Angle 

j  -00  . .  +00 

Degrees 

Angle 

I  -00  ..  +00 

Sin  Cos  Ratio 

Trig_Ratio 

I  -1  ..  +1 

1 

Tan  Ratio 

1 

TrigRatio 

1 

1  -00  . .  +00 

Radian  unit  of  measurement 
Semicircle  unit  of  measurement 
Degree  unit  of  measurement 
Result  of  a  sine  or  cosine 
function 

Result  of  a  tangent  function 
function 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

|  Value 

|  Description  | 

1  Pi 

|  Radians 

|  Pi  Value 

|  Value  of  pi  with  a  data  type  of  Radians 

j  Pi  Over  2 

|  Radians 

j  Pi72 

j  Value  of  pi/2 

j  Two  Pi 

j  Radians 

j  Pi  *  2 

j  Value  of  pi  *  2 

3. 3. 6. 3. 5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 3. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

with  Polynomials; 

package  body  Standard_Trig  is 


—  — local  declarations- 


type  Sin_Cos_Ratio_Squared  is  new  Sin_Cos_Ratio; 

Pi  :  constant  Radians  :«  Radians ( Pi_Value) ; 

Pi_0ver_2  :  constant  Radians  :=  Pi  /  2.0; 

Two  Pi  :  constant  Radians  :=  Pi  *  2.0; 


—  — local  operators 


—  — the  following  operators  are  required  for  the  instantiation  of 

—  — the  Polynomials. System_Functions.Semicircle_Operations  package 

function  "*"  (Left  :  Semicircles; 

Right  :  Radians)  return  Radians; 
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function  (Left  :  Radians; 

Right  :  Radians)  return  Semicircles; 

—  — the  following  operators  are  required  for  the  Sin_Cos  procedures 

function  (Left  :  Sin_Cos_Ratio; 

Right  :  Sin_Cos_Ratio)  return  Sin_Cos  Ratio_Squared; 


—  — required  instantiations  of  Polynomial. System_Functions  packages 


package  SysFns  renames  Polynomials. System_Functions; 

—  — radian  functions 

package  Radian_Opns  is  new 

SysFns. Radian_Operations  (Radians  «>  Radians, 

Sin_Cos  Ratio  *>  Sin_Cos  Ratio, 
Tan_RatIo  ■>  Tan_RatIo) ; 

function  Sin_R  (Input  s  Radians) 

return  Sin_Cos_Ratio  renames  Radian_Opns.Sin; 
function  Cos_R  (Input  :  Radians) 

return  Sin_Cos_Ratio  renames  Radian_Opns.Cos; 
function  Tan_R  (Input  s  Radians) 

return  Tan  Ratio  renames  RadianOpns.Tan; 

function  ArcsinR  (Input  :  SlnCosRatio) 

return  Radians  renames  RadianOpns.Arcsin; 

function  Arccos_R  (Input  :  Sin_Cos_Ratio) 

return  Radians  renames  Radian_Opns.Arccos; 

function  Arctan_R  (Input  :  Tan_Ratio) 

return  Radians  renames  Radian_Opns.Arctan; 


—  — semicircle  functions 


package  Semicircle  Opns  is  new 

SysFns. SemIcircle_Operations  (Scalars  ->  Radians, 

Semicircles  ■>  Semicircles, 
Sin_Cos  Ratio  ■>  Sin_Cos  Ratio, 
Tan_RatIo  «=>  Tan_RatIo, 
pi  ->  pi); 


function  Sin_S  (Input 

return 

function  Cos_S  (Input 

return 

function  Tan_S  (Input 

return 

function  Arcsin_S  (Input 
return 

function  Arccos_S  (Input 
return 

function  Arctan_S  (Input 
return 


Semicircles) 

Sin_Cos  Ratio  renames 
:  Semicircles) 
Sin_Cos_Ratio  renames 
:  Semicircles) 

Tan  Ratio  renames 
:  Sln_Cos_Ratio) 
Semicircles  renames 
:  Sin_Cos_Ratio) 
Semicircles  renames 
:  Tan_Ratio) 
Semicircles  renames 


Semicircle_Opns . Sin; 
Semici rcle_0pns . Cos ; 
Semi c i r cle_Opns . Tan ; 
Semicircle_Opns.Arcsin; 
Semicircle_Opns.Arccos; 
Semicircle_Opns.Arctan; 
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—  — degree  functions 

package  Degree_Opns  is  new 

SysFns.Degree_Operations  (Degrees  =>  Degrees, 

Sin_Cos  Ratio  =>  Sin_Cos  Ratio, 
Tan_RatIo  *>  Tan_RatIo); 

function  Sin_D  (Input  :  Degrees) 

return  Sin_Cos_Ratio  renames  Degree_Opns.Sin; 
function  Cos_D  (Input  :  Degrees) 

return  Sin_Cos_Ratio  renames  Degree_Opns . Cos ; 
function  Tan_D  (Input  :  Degrees) 

return  Tan  Ratio  renames  Degree_Opns.Tan; 

function  Arcsin_D  (Input  :  Sln_Cos_Ratio) 

return  Degrees  renames  Degree_Opns.Arcsin; 

function  Arccos_D  (Input  :  Sin_Cos_Ratio) 

return  Degrees  renames  Degree_Opns.Arccos; 

function  Arctan_D  (Input  :  Tan_Ratio) 

return  Degrees  renames  Degree_Opns.Arctan; 

—  — square  root  function 
package  Square_Root  is  new 

SysFns.Square_Root  (Inputs  «>  Sin_Cos_Ratio  Squared, 

Outputs  .->  Sin  Cos  RatioT; 

function  Sqrt  (Input  s  SinCosRatioSquared) 

return  SinCosRatio  renames  SquareRoot.Sqrt; 


—  — bodies  of  local  operators 


function  (Left  :  Semicircles; 

Right  :  Radians)  return  Radians  is 

begin 

return  Radians(Lef t)  *  Right; 

end 

function  (Left  :  Radians; 

Right  :  Radians)  return  Semicircles  is 

begin 

return  Semicircles(Lef t)  *  Semicircles(Right) ; 
end 

function  (Left  :  Sin_Cos_Ratio; 

Right  :  Sin_Cos_Ratio)  return  Sin_Cos_Ratio_Squared  is 

begin 

return  Sin_Cos_Ratio_Squared(Lef t)  *  Sin_Cos_Ratio_Squared(Right) ; 
end 


end  StandardTrig; 
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3. 3. 6. 3. 7  UTILIZATION  OF  OTHER  ELEMENTS 

The  following  library  units  are  with'd  by  this  part: 

1.  Polynomials 

UTILIZATION  OF  EXTERNAL  ELEMENTS: 

Subprograms : 

The  following  table  summarizes  the  external  subroutines  required  by  this  part 
and  located  in  the  Polynomials. System_Functions.  Radian_Operations  package: 


|  Name 

Type 

Description 

1 

|  Sin 

function 

Sine  function 

j  Cos 

function 

Cosine  function 

|  Tan 

function 

Tangent  function 

|  Arcsin 

function 

Arcsine  function 

|  Arccos 

function 

Arccosine  function 

j  Arctan 

function 

Arctangent  function 

The  following  table  summarizes  the  external  subroutines  required  by  this 

part 

and  located  in  the  Polynomials. System  Functions. 

Semicircle  Operations 

package: 

« 

|  Name 

Type 

Description 

1 

|  Sin 

function 

Sine  function 

1 

j  Cos 

function 

Cosine  function 

1 

|  Tan 

function 

Tangent  function 

1 

j  Arcsin 

function 

Arcsine  function 

1 

j  Arccos 

function 

Arccosine  function 

1 

j  Arctan 

function 

Arctangent  function 

1 

The  following  table  summarizes  the  external  subroutines  required  by  this  part 
and  located  in  the  Polynomials. System_Funct ions.  Degree_Operations  package: 


1 

Name 

Type 

Description 

1 

1 

Sin 

function 

Sine  function 

1 

1 

Cos 

function 

Cosine  function 

1 

1 

Tan 

function 

Tangent  function 

1 

1 

Arcsin 

function 

Arcsine  function 

1 

1 

Arccos 

function 

Arccosine  function 

1 

1 

Arctan 

function 

Arctangent  function 

I 

The  following  table  summarizes  the  subroutines  required  by  this  part  and 
located  in  the  Polynomials. System_Functions.Square_Root  package: 
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|  Name 

1  Type 

Description  | 

|  Sqrt 

|  function 

Square  root  function  | 

3. 3. 6. 3. 8  LIMITATIONS 
None. 

3. 3. 6. 3. 9  LLCSC  DESIGN 
None. 

3.3.6.3.10  UNIT  DESIGN 

3.3.6.3.10.1  SIN  (FOR  RADIANS,  SEMICIRCLES,  AND  DEGREES)  UNIT  DESIGN  (CATALOG 
#P3-0  {RADIANS ),P538-0  {SEMICIRCLES} ,P539-0  {DEGREES}) 

This  set  of  functions  calculate  the  sine  of  an  input  angle.  Three  functions 
have  been  set  up  to  handle  angles  with  units  of  radians,  semicircles,  and 
degrees . 

3.3.6.3.10.1.1  REQUIREMENTS  ALLOCATION 

» 

These  functions  meet  CAMP  requirements  R086,  R092,  and  R098. 

3.3.6.3.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.3.10.1.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Value 

|  Description 

1 

|  Input 

|  Radians 

|  N/A 

|  Value  for  which 

a 

sine 

is 

desired  j 

j  Input 

j  Semicircles 

j  N/A 

j  Value  for  which 

a 

sine 

is 

desired  ! 

j  Input 

j  Degrees 

j  N/A 

j  Value  for  which 

a 

sine 

is 

desired  | 

3.3.6.3.10.1.4  LOCAL  DATA 


None. 
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3.3.6.3.10.1.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.3.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Sin  (Input  :  Radians)  return  Sin_Cos_Ratio  is 
begin 

return  SinJt(Input) ; 
end  Sin; 

function  Sin  (Input  :  Semicircles)  return  Sin_Cos_Ratio  is 
begin 

return  Sin_S(Input) ; 
end  Sin; 

function  Sin  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 
begin 

return  Sin_D(Input) ; 
end  Sin; 


3.3.6.3.10.1.7  UTILIZATION  OP  OTHER  ELEMENTS 
UTILIZATION  OP  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Standard_Trig: 


|  Name  |  Base  Type  |  Range  |  Description 


Radians 

1 

Angle 

j  -oo  . .  +00 

1 

Radian  unit  of  measurement 

Semicircles 

Angle 

|  -oo  . .  +00 

Semicircle  unit  of  measurement 

Degrees 

Angle 

|  -00  . .  +00 

Degree  unit  of  measurement 

Sin_Cos_Ratio 

1 

1 

Trig  Ratio 

j  -1  ..  +1 

1 

I 

1 

Result  of  a  sine  or  cosine 
function 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Standard_Trig: 
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|  Name 

1  Type 

Description  | 

|  Sin  R 
j  Sin  S 
|  Sin  D 

j  function 
j  function 
|  function 

Sine  function  handling  units  of  radians  | 
Sine  function  handling  units  of  semicircles  | 
Sine  function  handling  units  of  degrees 

3.3.6.3.10.1.8  LIMITATIONS 


None. 


3.3.6.3.10.2  COS  (FOR  RADIANS,  SEMICIRCLES,  AND  DEGREES)  UNIT  DESIGN  (CATALOG 
#P4-0  (RADIANS) , P540-0  (SEMICIRCLES) ,P541-0  (DEGREES)) 

This  set  of  functions  calculate  the  cosine  of  an  input  angle.  Three  functions 
have  been  set  up  to  handle  angles  with  units  of  radians,  semicircles,  and 
degrees. 


3.3.6.3.10.2.1  REQUIREMENTS  ALLOCATION 

These  functions  meet  CAMP  requirements  R087,  R093,  and  R099. 


3.3.6.3.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 6. 3. IQ. 2. 3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Value 

|  Description 

1 

|  Input 

|  Radians 

N/A 

|  Value 

for  which  a  cosine 

is 

desired  | 

j  Input 

j  Semicircles 

N/A 

j  Value 

for  which  a  cosine 

is 

desired 

j  Input 

j  Degrees 

N/A 

j  Value 

for  which  a  cosine 

is 

desired  j 

3.3.6.3.10.2.4  LOCAL  DATA 


None. 


3.3.6.3.10.2.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.6.3.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Cos  (Input  :  Radians)  return  Sin_Cos_Ratio  is 
begin 

return  Cos_R(Input) ; 
end  Cos; 

function  Cos  (Input  :  Semicircles)  return  Sin_Cos_Ratio  is 
begin 

return  Cos_S(Input) ; 
end  Cos; 

function  Cos  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 
begin 

return  Cos_D(Input); 
end  Cos ; 


3.3.6.3.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Standard_Trig: 


|  Name 

Base  Type  |  Range 

Description  | 

|  Radians 

Angle  |  -oo  . .  +oo 

Radian  unit  of  measurement 

j  Semicircles 

Angle  j  -oo  . .  +oo 

Semicircle  unit  of  measurement 

j  Degrees 

Angle  j  -oo  . .  +oo 

Degree  unit  of  measurement 

I  Sin  Cos  Ratio 

Trig  Ratio  j  -1  . .  +1 

Result  of  a  sine  or  cosine 

function 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Standard_Trig: 


|  Name 

1  Type 

Description 

1 

j  Cos_R 
j  Cos_S 
|  Cos_D 

|  function 
j  function 
function 

Cosine 

Cosine 

Cosine 

function  handling  units  of  rhdians 

function  handling  units  of  semicircles 

function  handling  units  of  degrees  | 
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3.3.6.3.10.2.8  LIMITATIONS 


None. 


3.3.6.3.10.3  SIN_C0S  (FOR  RADIANS,  SEMICIRCLES,  AND  DEGREES)  UNIT  DESIGN  (CATALOG 
#P5-0  (RADIANS), P542-0  (SEMICIRCLES) ,P543-0  (DEGREES)) 

This  set  of  procedures  calculate  the  sine  and  cosine  of  an  input  angle.  Three 
procedures  have  been  set  up  to  handle  angles  with  units  of  radians, 
semicircles,  and  degrees. 

The  sine  values  will  be  obtained  by  calling  the  appropriate  Sin  function 
contained  in  one  of  the  instantiated  packages  from  Polynomials. System_- 
Functions.  The  cosine  values  will  then  be  calculated  based  on  the  sine  values 
obtained. 

The  cosine  values  will  be  calculated  as  follows: 

Cos(x)  :*  +/-  Sqrt(1.0  -  sin**2(x)) 

where  the  sign  of  the  cosine  depends  upon  the  quadrant  in  which  the  angle  lies: 

II  |  I 

-  I  + 

"T”’ 

III  |  IV 


3.3.6.3.10.3.1  REQUIREMENTS  ALLOCATION 

These  procedures  meet  CAMP  requirements  R086,  R087,  R092,  R093,  R098,  and  R099. 


3.3.6.3.10.3.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.3.10.3.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


Name 

1 

Type 

|  Va: 

Input 

1 

Radians 

|  N/A 

Input 

1 

i 

Semicircles 

j  N/A 

Input 

1 

Degrees 

j  N/A 

|  Description 


Value  for  which  a  sine  and  cosine  are 
desired 

Value  for  which  a  sine  and  cosine  are 
desired 

Value  for  which  a  sine  and  cosine  are 
desired 
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3.3.6.3.10.3.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


Name 

Type 

|  Va] 

Reduced  Angle 

Radians 

N/A 

Reduced  Angle 

Semicircles 

N/A 

Reduced  Angle 

Degrees 

N/A 

Temp  Cos 

Sin  Cos 

N/A 

Ratio 

Temp  Sin 

Sin  Cos 

N/A 

Ratio 

|  Description 


Input  angle  after  its  range  has 
been  reduced  to  +/-  pi 
Input  angle  after  its  range  has 
been  reduced  to  0  ..  2.0 
Input  angle  after  its  range  has 
been  reduced  to  0  . .  360.0 
Temporary  cosine  value 

Temporary  sine  value 


3.3.6.3.10.3.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.3.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Sin_Cos  (Input  :  in  Radians; 

Sin_Result  :  oat  Sin_Cos_Ratio; 

Cos  Result  :  out  Sin  Cos  Ratio)  is 


— declaration  section 


Reduced_Angle  :  Radians; 
Temp_Cos  :  Sin_Cos_Ratio; 

Temp_Sin  :  Sin~Cos~Ratio; 


—  — begin  procedure  Sin_Cos 


begin 


- get  sine  value - 

Temp_Sin  :=  Sin_R(Input) ; 

Sin_Result  Temp_Sin; 

- reduce  input  angle  to  +/-  pi 


Reduced_Angle  :=  Input; 
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if  ABS(Reduced_Angle)  >  Pi  then 

— handle  positive  angles 

if  Reduced_Angle  >  Pi  then 

Reduce  Input_Angle_Through  Subtraction: 
while  Reduced_Angle  >  PT  loop 

Reduced_Angle  :=  Reduced_Angle  -  Two_Pi; 
end  loop  Reduce_Input_Angle_Through_Subtraction; 
end  if; 

— handle  negative  angles 

if  Reduced  Angle  <  -Pi  then 

Reduce  Inpu  t_Angle_Thr ough_Add  i  t  i  on : 
while  Reduced_Angle  <  -Pi  loop 

Reduced_Angle  :■  Reduced_Angle  +  Two  Pi; 
end  loop  Reduce_Input_Angle_Through_AddItion; 
end  if; 

end  if; 


- calculate  cosine  value - 

Temp_Cos  :■  Sqrt(1.0  -  Temp_Sin*Temp_Sin) ; 

— check  for  angles  in  Quadrant  II  or  III  since  they  would  be  negative 
if  ABS(Reduced_Angle)  >  Pi_0ver_2  then 
Cos_Result  :»  -  Temp_Cos; 
else 

Cos_Result  s-  Temp_Cos; 
end  ifi 

end  Sin  Cos; 


procedure  Sin_Cos  (Input  :  in  Semicircles; 

Sin_Result  :  out  Sin_Cos_Ratio; 

Cos  Result  :  out  Sin  Cos'Ratio)  is 


— declaration  section 


Reduced_Angle  :  Semicircles; 
Temp_Cos  :  Sin_Cos_Ratio; 

Temp_Sin  :  Sin_Cos~Ratio; 


—  -begin  function  Sin_Cos 


begin 


calculate  sine  value 


Temp  Sin  Sin  S(Input); 
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{ 

Sin_Result  :=  Temp_Sin; 

- reduce  input  angle  to  0..2 - 

Reduced_Angle  :=  Input; 

Pu  t_Nega  t i ve_Angles_In_Cor rec t  Range : 
while  Reduced_Angle  <  0.0  loop 

Reduced_Angle  :=  Reduced_Angle  +  2.0; 
end  loop  Put_Negative_Angles_In_Correct_Range; 

Pu t_Pos i t i ve_Angles_In_Cor rec  t  Range : 
while  Reduced_Angle  >  2.0  loop 

Reduced_Angle  :»  Reduced_Angle  -  2.0; 
end  loop  Put_Positive_Angles_In_Correct_Range; 

- calculate  cosine  value - 

Temp_Cos  :=■  Sqrt(1.0  -  Temp_Sin*Temp_Sin) ; 

— see  if  angle  is  in  quadrants  II  or  III  since  these  cosines  should 
— be  negative 

if  Reduced_Angle  >  0.5  and  then 
Reduced_Angle  <  1.5  then 
Cos_Result  -  Temp_Cos; 
else 

CosResult  :»  Temp  Cos;  . 

end  if;  ‘ 

end  Sin  Cos; 


procedure  Sin_Cos  (Input  :  in  Degrees; 

Sin_Result  :  out  Sin_Cos_Ratio; 

Cos  Result  :  out  Sin  Cos  Ratio)  is 


— declaration  section 


Reduced_Angle  :  Degrees; 
Temp_Cos  s  Sin_Cos_Ratio; 

Temp_Sin  :  Sin_Cos~Ratio; 


—  —begin  procedure  Sin  Cos 


begin 


- calculate  sine  value - 

Temp_Sin  :»  Sin_D(Input) ; 

Sin_Result  :■  Temp_Sin;  ^ 


reduce  input  angle  to  0  . .  360 
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Reduced_Angle  :=  Input; 

Reduce  Positive  Angles_To  Appropriate_Range: 
while  Reduce3_Angle  >  360.0  loop 

Reduced_Angle  :=  Reduced_Angle  -  360.0; 
end  loop  Reduce_Positive  Angles_To  Appropriate_Range; 

Reduce  Negative  Angles_to  Appropriate_Range: 
while  Reduce3_Angle  <5.0  loop 

Reduced_Angle  :»  Reduced_Angle  +  360.0; 
end  loop  Reduce_Negative_Angles_to_Appropriate_Range; 

- calculate  cosine  value 

Temp_Cos  :=■  Sqrt(1.0  -  Temp_Sin*Temp_Sin) ; 

— check  for  angles  in  quadrants  II  or  III  since  these  values  need  to 
— be  negative 

if  Reduced_Angle  >  90.0  and  then 
Reduced_Angle  <  270.0  then 
Cos_Result  :*  -  Temp_Cos; 
else 

Cos_Result  Temp_Cos; 
end  if; 

end  Sin  Cos; 


3.3.6.3.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Standard_Trig: 


|  Name  |  Base  Type  |  Range  |  Description  | 


|  Radians 

1 

Angle 

-00  . .  +00 

1 

Radian  unit  of  measurement 

|  Semicircles 

1 

Angle 

-00  . .  +00 

Semicircle  unit  of  measurement 

j  Degrees 

1 

Angle 

-00  . .  +oo 

Degree  unit  of  measurement 

j  Sin_Cos_Ratio 

1 

1 

Trig_Ratio 

-1  ..  +1 

1 

1 

Result  of  a  sine  or  cosine 
function 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Standard_Trig: 
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|  Name 

1  Type  | 

Description 

1 

|  Sin  R 

|  function 

Sine  function  handling 

units 

of 

radians  i 

j  Sin  S 

1  function 

Sine  function  handling 

units 

of 

semicircles  ■ 

|  Sin  D 

|  function 

Sine  function  handling 

units 

of  degrees  j 

3.3.6.3.10.3.8  LIMITATIONS 


None. 


3.3.6.3.10.4  TAN  (FOR  RADIANS,  SEMICIRCLES,  AND  DEGREES)  UNIT  DESIGN  (CATALOG 
#P6-0  {RADIANS}, P544-0  {SEMICIRCLES}  ,P545-0  {DEGREES}) 

This  set  of  functions  calculates  the  tangent  of  an  input  angle.  Three 
functions  have  been  set  up  to  handle  angles  with  units  of  radians,  semicircles, 
and  degrees. 


3.3.6.3.10.4.1  REQUIREMENTS  ALLOCATION 

These  functions  meet  CAMP  requirements  R088,  R094,  and  R100. 


3.3.6.3.10.4.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.3.10.4.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Value 

|  Description 

1 

|  Input 

|  Radians 

N/A 

|  Value  for  vhich 

a 

tangent 

is 

desired  | 

j  Input 

j  Semicircles 

N/A 

j  Value  for  which 

a 

tangent 

is 

desired  j 

j  Input 

j  Degrees 

N/A 

j  Value  for  which 

a 

tangent 

is 

desired 

3.3.6.3.10.4.4  LOCAL  DATA 


None. 


3.3.6.3.10.4.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.6.3.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Tan  (Input  :  Radians)  return  Tan_Ratio  is 
begin 

return  TanR(Input) ; 
end  Tan; 

function  Tan  (Input  :  Semicircles)  return  Tan_Ratio  is 
begin 

return  Tan_S( Input ) ; 
end  Tan; 

function  Tan  (Input  :  Degrees)  return  Tan_Ratio  is 
begin 

return  Tan_D(Input) ; 
end  Tan; 


3.3.6.3.10.4.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Standard_Trig: 


|  Name  |  Base  Type  |  Range  |  Description 


Radians 
Semicircles 
Degrees 
Tan  Ratio 


|  Angle 
j  Angle 
j  Angle 
j  Trig_Ratio 


-oo  . .  +oo 
-oo  . .  +oo 
-oo  . .  +oo 
-oo  . .  +oo 


Radian  unit  of  measurement 
Semicircle  unit  of  measurement 
Degree  unit  of  measurement 
Result  of  a  tangent  function 
function 


Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Standard_Trig: 


|  Name 

1  Type 

Description 

1 

|  Tan  R 
j  Tan  S 
j  Tan  D 

|  function 
j  function 
j  function 

Tangent  function  handling  units 
Tangent  function  handling  units 
Tangent  function  handling  units 

of  radians  | 
of  semicircles  j 
of  degrees  | 
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3-3.6.3.10.4.8  LIMITATIONS 


None. 


3.3.6.3.10.5  ARCSIN  (FOR  RADIANS,  SEMICIRCLES,  AND  DEGREES)  UNIT  DESIGN  (CATALOG 
#P7-0  {RADIANS} ,P546-0  {SEMICIRCLES} , P547-0  {DEGREES}) 

This  set  of  functions  calculates  the  arcsine  of  an  input  value.  Three 
functions  have  been  set  up  to  handle  angles  with  units  of  radians,  semicircles, 
and  degrees. 


3.3.6.3.10.5.1  REQUIREMENTS  ALLOCATION 

These  functions  meet  CAMP  requirements  R089,  R095,  and  R101. 


3.3.6.3.10.5.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.3.10.5.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Value 

|  Description  | 

|  Input 

|  Sin_Cos_Ratio 

|  N/A 

j  Value  for  which  an  arcsine  is  desired  | 

3.3.6.3.10.5.4  LOCAL  DATA 
None. 


3.3.6.3.10.5.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.3.10.5.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Arcsin  (Input  :  Sin_Cos_Ratio)  return  Radians  is 
begin 

return  Arcsin_R(Input); 
end  Arcsin; 

function  Arcsin  (Input  :  Sin_Cos_Ratio)  return  Semicircles  is 
begin 
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return  Arcsin_S(Input) ; 
end  Arcsin; 

function  Arcsin  (Input  :  Sin_Cos_Ratio)  return  Degrees  is 
begin 

return  Arcsin_D(Input) ; 
end  Arcsin; 


3.3.6.3.10.5.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Standard_Trig: 


|  Name 

Base  Type 

Range 

Description  | 

|  Radians 

Angle 

-oo  . .  +oo 

Radian  unit  of  measurement 

j  Semicircles 

Angle 

-oo  . .  +oo 

Semicircle  unit  of  measurement 

|  Degrees 

Angle 

-OO  . .  +00 

Degree  unit  of  measurement 

j  Sln_Cos_Ratio 

Trig  Ratio 

-1  ..  +1 

Result  of  a  sine  or  cosine 
function 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  StandardJTrig: 


|  Name  |  Type  |  Description  | 


|  Arcsin_R  |  function  |  Arcsine  function  handling  units  of  radians  | 

j  Arcsin_S  j  function  j  Arcsine  function  handling  units  of  semicircler 

j  Arcsin_D  j  function  j  Arcsine  function  handling  units  of  degrees 


3.3.6.3.10.5.8  LIMITATIONS 


None. 


3.3.6.3.10.6  ARCCOS  (FOR  RADIANS,  SEMICIRCLES,  AND  DEGREES)  UNIT  DESIGN  (CATALOG 
#P8-0  (RADIANS), P548-0  (SEMICIRCLES) ,P549-0  (DEGREES)) 

This  set  of  functions  calculates  the  arccosine  of  an  input  value.  Three 
functions  have  been  set  up  to  handle  angles  with  units  of  radians,  semicircles, 
and  degrees. 
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3.3.6.3.10.6.1  REQUIREMENTS  ALLOCATION 

These  parts  meet  CAMP  requirements  R090,  R096,  and  R102. 

3.3.6.3.10.6.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.3.10.6.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Value 

|  Description  | 

|  Input 

|  Sin  Cos  Ratio 

|  N/A 

|  Value  for  which  an  arccosine  is  desired | 

3.3.6.3.10.6.4  LOCAL  DATA 


None. 


3.3.6.3.10  6.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.3.10.6.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Arccos  (Input  :  Sin_Cos_Ratio)  return  Radians  is 
begin 

return  Arccos_R( Input) ; 
end  Arccos; 

function  Arccos  (Input  :  Sin_Cos_Ratio)  return  Semicircles  is 
begin 

return  Arccos_S(Input) ; 
end  Arccos; 

function  Arccos  (Input  :  Sin_Cos_Ratio)  return  Degrees  is 
begin 

return  Arccos_D(Input) ; 
end  Arccos; 
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>>j> 

^  3.3.6.3.10.6.7  UTILIZATION  OF  OTHER  ELEMENTS 

UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Standard _Trig: 


Name 


|  Base  Type  |  Range 


Description 


1 

Radians 

1 

Angle 

|  -00  . .  +00 

1 

Radian  unit  of  measurement 

1 

1 

Semicircles 

1 

Angle 

j  -OO  . .  +00 

1 

Semicircle  unit  of  measurement 

1 

1 

Degrees 

1 

Angle 

j  -00  . .  +00 

1 

Degree  unit  of  measurement 

1 

Sin  Cos  Ratio 

1 

Trig  Ratio 

I  -1  ..  +1 

1 

Result  of  a  sine  or  cosine 

1 

1 

1 

1 

1 

function 

1 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Standard_Trig: 


|  Name  |  Type  |  Description  | 


|  Arccos  R  |  function  |  Arccosine  function  handling  units  of  radians 

j  Arccos_S  j  function  j  Arccosine  function  handling  units  of  semicircles 

j  Arccos_D  |  function  j  Arccosine  function  handling  units  of  degrees 


3.3.6.3.10.6.8  LIMITATIONS 
None. 


3.3.6.3.10.7  ARCSIN  ARCCOS  (FOR  F.ADIANS,  SEMICIRCLES,  AND  DEGREES)  UNIT  DESIGN 
(CATALOG  #P9-0  (RADIANS) , P550-0  (SEMICIRCLES)  ,P551-0  (DEGREES)) 

This  set  of  procedures  calculates  the  arcsine  and  arccosine  of  an  input  value. 
Three  functions  have  been  set  up  to  handle  angles  with  units  of  radians, 
semicircles,  and  degrees. 


3.3.6.3.10.7.1  REQUIREMENTS  ALLOCATION 

These  procedures  meet  CAMP  requirements  R089,  R090,  R095,  R096,  R101,  and  R102. 
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3.3.6.3.10.7.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.3.10.7.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

Value 

|  Description  | 

|  Input 
! 

|  Sin  Cos  Ratio 

N/A 

|  Value  for  which  an  arcsine  and 
|  arccosine  is  desired 

3.3.6.3.10.7.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  these  parts: 


|  Name 

Type 

|  Value 

|  Description  | 

|  Temp  As in 

Radians 

|  N/A 

|  Temporary  arcsine  value 

j  Temp  As in 

Semicircles 

|  N/A 

j  Temporary  arcsine  value 

|  Temp_Asin 

Degrees 

|  N/A 

j  Temporary  arcsine  value 

3.3.6.3.10.7.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.3.10.7.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Arcsin_Arccos  (Input  :  in  Sin  Cos_Ratio; 

Arcsin_Result  :  out  RadlansJ 
Arccos  Result  :  out  Radians)  is 


— declaration  section 


Temp_Asin  :  Radians; 


_  — begin  procedure  Arcsin_Arccos 
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begin 

Temp  Asin  :=  Arcsin_R(Input) ; 
ArcsInResult  :=  Temp_ASin; 
ArccosResult  :=  Pi_0ver_2  -  Temp_ASin; 
end  Arcsin  Arccos; 


procedure  Arcsin_Arccos  (Input  s  in  Sin  Cos_Ratio; 

Arcsin_Result  :  out  Semicircles; 

Arccos~Result  :  out  Semicircles)  is 


— declaration  section 


Temp_Asin  :  Semicircles; 


—  — begin  procedure  Arcsin_Arccos 


begin 

Temp  Asin  :«  Arcsin_S( Input) ; 
ArcsTn_Result  :■  Temp_Asin; 
ArccosResult  0.5  -  TempAsin; 
end  Arcsin  Arccos; 


procedure  Arcsin_Arccos  (Input  s  in  Sin_Cos_Ratio; 

Arcsin_Result  :  out  Degrees! 

Arccosjtesult  »  out  Degrees)  is 


— declaration  section 


Temp_Asin  :  Degrees; 


—  — begin  procedure  Arcsin_Arccos 


begin 

Temp  Asin  :*  Arcsin_D(Input) ; 
ArcsIn  Result  :■=  Temp_Asin; 
Arccos_Result  :=  90.0  -  Temp_Asin; 
end  Arcsin  Arccos; 


3.3.6.3.10.7.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 
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Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Standard_Trig: 


|  Name  |  Base  Type  |  Range  |  Description 


Radians 

1 

Angle 

|  -oo  . .  +oo 

1 

Radian  unit  of  measurement 

Semicircles 

1 

Angle 

j  -00  ..  +00 

1 

Semicircle  unit  of  measurement 

Degrees 

1 

Angle 

j  -00  . .  +00 

1 

Degree  unit  of  measurement 

Sin_Cos  Ratio 

Trig_Ratio 

j  -1  ..  +1 

1 

Result  of  a  sine  or  cosine 

1 

1 

1 

function 

Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  Standard  Trig: 


|  Name 

Type 

Value 

|  Description  | 

|  Pi_0ver_2 

Radians 

Pi/2 

|  Value  of  pi/2  | 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entrie.  required  by 
this  part  and  defined  in  the  package  body  of  Standard_Trig: 


|  Name  |  Type  |  Description 


|  Arcsin_R  |  function  |  Arcsine  function  handling  units  of  radians 

j  Arcsin_S  j  function  j  Arcsine  function  handling  units  of  semicircles 

j  Arcsin_D  j  function  j  Arcsine  function  handling  units  of  degrees 


3.3.6.3.10.7.8  LIMITATIONS 


None. 


3.3.6.3.10.8  ARCTAN  (FOR  RADIANS,  EMICIRCLES,  AND  DEGREES)  UNIT  DESIGN  (CATALOG 
#P10-0  {RADIANS}, P552-C  .EMICIRCLES}  , P553-0  {DEGREES}) 

This  set  of  functions  calculates  the  arctangent  of  an  input  value.  Three 
functions  have  been  set  up  to  handle  angles  with  units  of  radians,  semicircles, 
and  degrees. 
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3.3.6.3.10.8.1  REQUIREMENTS  ALLOCATION 

The  functions  meet  CAMP  requirements  R091,  R097,  and  R103. 

3.3.6.3.10.8.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.3.10.8.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Value 

|  Description  | 

|  Input 

|  Tan_Ratio  | 

|  N/A 

|  Value  for  which  an  arctangent  is  desired  | 

3.3.6.3.10.8.4  LOCAL  DATA 


None. 


3.3.6.3.10.8.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.3.10.8.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Arctan  (Input  :  Tan_Ratio)  return  Radians  is 
begin 

return  Arc tan_R( Input); 
end  Arctan; 

function  Arctan  (Input  :  Tan_Ratio)  return  Semicircles  is 
begin 

return  Arctan_S(Input) ; 
end  Arctan; 

function  Arctan  (Input  :  Tan_Ratio)  return  Degrees  is 
begin 

return  Arctan_D(Input) ; 
end  Arctan; 
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3.3.6.3.10.8.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  ANCESTRAL  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  ancestral  units: 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  Standard_Trig: 


|  Name  |  Base  Type  |  Range  |  Description 


1 

Radians 

|  Angle 

|  -00  . .  +00 

1 

Radian  unit  of  measurement 

1 

1 

Semicircles 

j  Angle 

j  -00  . .  +00 

1 

Semicircle  unit  of  measurement 

1 

Degrees 

j  Angle 

j  -00  . .  +00 

Degree  unit  of  measurement 

Tan  Ratio 

|  Trig  Ratio 

j  -00  . .  +00 

1 

Result  of  a  tangent  function 

1 

1 

1 

function 

1 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  in  the  package  body  of  Standard_Trig: 


|  Name 

' 

Type  | 

Description  | 

|  Arc tan 
j  Arc tan 
j  Arctan 

R 

_s 

D 

function  | 
function  j 
function  | 

Arctangent  function  handling  units  of  radians 
Arctangent  function  handling  units  of  semicircles  ; 

Arctangent  function  handling  units  of  degrees 

3.3.6.3.10.8.8  LIMITATIONS 


None. 


3.3.6.3.10.9  ARCTAN2  (FUNCTION  BODY)  UNIT  DESIGN  (CATALOG  #P554-0) 

This  function  calculates  the  arctangent  of  two  input  values  defining  the 
endpoint  of  a  vector.  The  result  of  this  function  is  the  angle  between  the 
vector  and  the  positive  x-axis  and  is  in  the  range  equivalent  to  +/-  pi. 

If  both  X  and  Y  equal  0,  this  function  will  return  a  value  of  0. 


3.3.6.3.10.9.1  REQUIREMENTS  ALLOCATION 
This  part  meets  requirement  R. 
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3.3.6.3.10.9.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.3.10.9.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  when  this  function  was 
specified: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

|  Description  | 

|  Angles 
j  Measurements 

floating  point 
floating  point 

|  Data  type  defining  angular  measurements  { 

j  Data  type  defining  function  input  types  j 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name  |  Type  |  Description 


Cycle  over  2  |  Angles 

"  “  I 

I 

Cycle_over_4  |  Angles 


Number  of  angular  units  of  measurement  in  half  a 
circle  (e.g.,  pi/2  for  Radians,  180  for  Degrees, 
and  1.0  for  Semicircles) 

Number  of  angular  units  of  measurement  in  1/4  of  a 
circle  (e.g.,  pi/4  for  Radians,  90  for  degrees, 
and  .5  for  Semicircles) 


Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

Type 

Description  | 

|  "/" 

1 

j  Arctan 

function 

function 

Division  operator  defining  the  operation:  j 

Measurements  /  Measurements  b>  Tan_Ratio  j 

Arctangent  function  j 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 
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|  Name 

1  Type 

Mode 

|  Description  | 

1  x 

|  Measurements 

in 

|  First  element  of  the  coordinate  pair 

1  Y 

j  Measurements 

in 

|  Second  element  of  the  coordinate  pair  | 

3.3.6.3.10.9.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

Type 

Description  | 

|  Answer 

Angles 

Arctangent-2  of  input  values  | 

3.3.6.3.10.9.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.3.10.9.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Arctan2  (X  :  Measurements; 

Y  :  Measurements)  return  Angles  is 


— declaration  section 


Answer  :  Angles; 

Tan  Value  :  Tan  Ratio; 


—  — begin  function  body 


begin 

if  X  =  0.0  then 

if  Y  =  0.0  then 
Answer  :=  0.0; 
elsif  Y  >  0.0  then 

Answer  :=  Cycle_over_4; 
else 

Answer  :=  -Cycle_over_4; 
end  if; 


else 
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if  abs(X)  >*  abs(Y)  then 

Tan_Value  :=  Y  /  X; 

Answer  :=  Arc tan  (Tan_Value); 

if  X  <  0.0  then 
if  Y  >«  0.0  then 

Answer  :■  Answer  +  Cycle_over_2 ; 
else 

Answer  :«  Answer  -  Cycle_over_2; 
end  if; 
end  if; 

else  —  abs(X)  <  abs(Y) 

TanValue  X  /  Y; 

Answer  :*  Arctan  (Tan_Value); 

if  Y  >=  0.0  then 

Answer  Cycle_over_4  -  Answer; 
else 

Answer  : -  -Cycle_over_4  -  Answer; 
end  if; 

end  if; 

end  if; 

return  Answer; 
end  Arctan2; 


3.3.6.3.10.9.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3.3.6.3.10.9.8  LIMITATIONS 


None. 
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vith  Polynomials; 

package  body  Standard_Trig  is 


—  —  local  declarations- 


type  Sin  Cos  Ratio  Squared  is  nev  Sin  Cos  Ratio; 


Pi 

Pi_0ver_2 
Two  Pi 


constant  Radians 
constant  Radians 
constant  Radians 


Radians (Pi  Value) 
Pi  /  2.0;  ” 

Pi  *  2.0; 


—  —  local  operators 


—  —  the  following  operators  are  required  for  the  ins/antiation  of 

—  — the  Polynomials.  System  Functions. Semicircle  Operations  package 

function  "*"  (Left  :  Semicircles; 

Right  :  Radians)  return  Radians; 

function  (Left  :  Radians; 

Right  :  Radians)  return  Semicircles; 

—  —  the  following  operators  are  required  for  the  Sin  Cos  procedures 

function  (Left  s  Sin_Cos_Ratio; 

Right  s  Sin_Cos_Ratio)  return  Sin_Cos_Ratio_Squared; 


—  —  required  instantiations  of  Polynomial.  System  Functions  packages 


package  Sysfns  renames  Polynomials. System_Funct ions; 
—  —  radian  functions 


package  Radian_Opns  is  nev 

Sysfns. Radian_Operations  (Radians  ->  Radians, 

Sin_Cos  Ratio  ->  Sin_Cos  Ratio, 
Tan-RatIo  *>  Tan  Ratio); 


function 

function 

function 

function 

function 

function 


Sin_R 

Cos_R 

Tan_R 

Arcsin_R 

Arccos_R 

Arctan  R 


(Input  :  Radians) 
return  Sin_Cos_Ratio  renames 
(Input  :  Radians) 
return  Sin_Cos_Ratio  renames 
(Input  :  Radians) 
return  Tan  Ratio  renames 

(Input  :  Sln_Cos_Ratio) 
return  Radians  renames 

(Input  :  Sin_Cos_Ratio) 
return  Radians  ~  renames 

(Input  :  Tan_Ratio) 
return  Radians  renames 


Rad ian_0pns . Sin ; 
Rad i an_0pns . Cos ; 
Rad i an_0pns . Tan ; 
Radian_Opns.Arcsin; 
Radian_Opns.Arccos; 
Radian  Opns. Arctan; 
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pragma  PAGE; 

—  — semicircle  functions 

package  Semicircle_Opns  is  new 

Sysfns.Semicircle_Operations  (Scalars  =>  Radians, 

Semicircles  ■>  Semicircles, 
Sin_Cos  Ratio  =>  Sin_Cos  Ratio, 
Tan_RatIo  «>  Tan_RatIo, 

Pi  ->  Pi); 

function  Sin_S  (Input  :  Semicircles) 

return  Sin_Cos  Ratio  renames  Semicircle_Opns.Sin; 
function  Cos_S  (Input  :  Semicircles) 

return  Sin_Cos  Ratio  renames  Semicircle_Opns.Cos; 
function  Tan_S  (Input  :  Semicircles) 

return  Tan  Ratio  renames  Semi circle_Opns. Tan; 
function  Arcsin_S  (Input  :  Sin  Cos_Ratio) 

return  Semiclrclis  renames  Semicircle  Opns.Arcsin; 
function  ArccosS  (Input  :  Sin  Cos_Ratio) 

return  Semicircles  renames  Semicircle_Opns.Arccos; 
function  Arctan_S  (Input  :  Tan  Ratio) 

return  Semicircles  renames  Ssmicircle_Opns.Arctan; 

—  —  degree  functions 

package  Degree_Opns  is  nev 

Sysfns.DegreeOperations  (Degrees  ->  Degrees, 

SinCos  Ratio  ->  SinCos  Ratio, 
Tan~RatIo  ->  Tan  Ratlo); 

function  Sin_D  (Input  :  Degrees) 

return  Sin_Cos_Ratio  renames  Degree_Opns.Sin; 
function  Cos_D  (Input  :  Degrees) 

return  Sin_Cos  Ratio  renames  Degree_Opns . Cos ; 
function  Tan_D  (Input  :  Degrees) 

return  Tan  Ratio  renames  Degree_Opns.Tan; 

function  Arcsin_D  (Input  :  Sln_Cos_Ratio) 

return  Degrees  renames  Degree_Opns.Arcsin; 

function  Arccos_D  (Input  :  Sin_Cos_Ratio) 

return  Degrees  renames  Degree_Opns,Arccos; 

function  Arctan_D  (Input  j  Tan_Ratio) 

return  Degrees  renames  Degree_Opns.Arctan; 

—  —  square  root  function 
package  Square_Root  is  new 

Sysfns.Square_Root  (Inputs  =>  Sin_Cos_Ratio  Squared, 

Outputs  =>  Sin_Cos_RatioJ; 

function  Sqrt  (Input  :  Sin_Cos_Ratio_Squared) 

return  Sin_Cos_Ratio  renames  Square_Root.Sqrt; 

pragma  PAGE; 


—  —  bodies  of  local  operators 
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function  (Left  :  Semicircles; 

Right  :  Radians)  return  Radians  is 

begin 

return  Radians(Lef t)  *  Right; 

end 

function  (Left  :  Radians; 

Right  :  Radians)  return  Semicircles  is 

begin 

return  Semicircles(Lef t)  *  Semicircles(Right) ; 

end 

function  (Left  :  Sin_Cos_Ratio; 

Right  :  Sin_Cos_Ratio)  return  Sin_Cos_Ratio_Squared  is 

begin 

return  Sin_Cos_Ratio_Squared(Left)  *  Sin  Cos  Ratio  Squared (Right) ; 
end 

pragma  PAGE; 

function  Sin  (Input  :  Radians)  return  Sin_Cos_Ratio  is 
begin 

return  Sin_R(Input) ; 
end  Sin; 

function  Sin  (Input  :  Semicircles)  return  Sin_Cos_Ratio  is 
begin 

return  SinS(Input) j 
end  Sin; 

function  Sin  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 
begin 

return  SinD(Input); 
end  Sin; 

pragma  PAGE; 

function  Cos  (Input  :  Radians)  return  Sin_Cos_Ratio  is 
begin 

return  Cos_R(Input) ; 
end  Cos; 

function  Cos  (Input  :  Semicircles)  return  Sin_Cos_Ratio  is 
begin 

return  Cos_S(Input) ; 
end  Cos ; 

function  Cos  (Input  :  Degrees)  return  Sin_Cos_Ratio  is 
begin 

return  Cos_D(Input) ; 
end  Cos; 

pragma  PAGE; 

procedure  Sin_Cos  (Input  :  in  Radians; 

Sin_Result  :  out  Sin_Cos_Ratio; 

Cos  Result  :  out  Sin  Cos  Ratio)  is 


—  declaration  section 
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Reduced_Angle  :  Radians; 
TempCos  :  Sin_Cos_Ratio; 

Temp_Sin  :  Sin_Cos_Ratio; 


—  —  begin  procedure  SinCos 


begin 


- get  sine  value - 

Temp_Sin  Sin_R(Input) ; 

Sin_Result  Temp_Sin; 

- reduce  input  angle  to  +/-  pi - 

Reduced_Angle  :*=  Input; 
if  abs(Reduced_Angle)  >  Pi  then 

—  handle  positive  angles 

if  Reduced  Angle  >  Pi  then 

Reduce  Input_Angle_Through  Subtraction: 
vhile  Reduced_Angle  >  Pi  loop 

ReducedAngle  :«  Reduced_Angle  -  TwoPi; 
end  loop  Reduce_Input_Angle_Through_Subtraction; 
end  if; 

—  handle  negative  angles 

if  Reduced_Angle  <  -PI  then 

Reduce  Input_Angle_Through_Addition: 
while  Reduced_Angle  <  -PI  loop 

Reduced_Angle  Reduced_Angle  +  Two  Pi; 
end  loop  Reduce_Input_Angle_Through_AddItion; 
end  if; 

end  if; 


- calculate  cosine  value - 

Temp_Cos  :=  Sqrt(1.0  -  Temp_Sin*Temp_Sin); 

—  check  for  angles  in  Quadrant  II  or  III  since  they  would  be  negative 

if  abs(Reduced_Angle)  >  Pi_0ver_2  then 
Cos_Result  :=  -  Temp_Cos; 
else 

Cos_Result  :=  Temp_Cos; 
end  if; 

end  Sin_Cos; 

pragma  PAGE; 

procedure  Sin  Cos  (Input  :  in  Semicircles; 
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Sin_Result  :  out  Sin_Cos_Ratio; 
Cos~Result  s  out  Sin  Cos~Ratio)  is 


—  declaration  section 


Reduced_Angle  :  Semicircles; 
Temp_Cos  :  Sin_Cos_Ratio; 

Temp_Sin  :  Sin_Cos_Ratio; 


—  —  begin  function  Sin  Cos 


begin 


- calculate  sine  value - 

Temp  Sin  :*  Sin_S(Input) ; 

Sin  Result  Temp_Sin; 

- reduce  input  angle  to  0. .  2 - 

Reduced_Angle  :■  Input; 

Pu  tNega  t  i  ve_Angles_In_Cor  rec  tRange  j 
vhile  ReducedAngle  <0.0  loop 

ReducedAigle  j-  Reduced_Angle  +  2.0; 
end  loop  Put  _Negative_Angles_In_Correct_Range; 

PutPosi  t  ive_Angles_In_Correct_Kange : 
vhile  Reduced_Angle  >  2.0  loop 

Reduced_Angle  Reduced_Angle  -  2.0; 
end  loop  Put_Positive_Angles_In  Correct_Range; 

- calculate  cosine  value - 

Temp_Cos  :*  Sqrt(1.0  -  Temp_Sin*Temp_Sin); 

—  see  if  angle  is  in  quadrants  11  or  111  since  these  cosines  should 

—  be  negative 

if  Reduc^d_Angle  >  0.5  and  then 
Reduced_Angle  <  1.5  then 
Cos_Result  :«=  -  Temp_Cos; 
else 

Cos_Result  :=  Temp_Cos; 
end  if; 

end  SinCos; 

pragma  PAGE; 

procedure  Sin_Cos  (Input  :  in  Degrees; 

Sin_Result  :  out  Sin_Cos_Ratio; 

Cos  Result  :  out  Sin  Cos  Ratio)  is 
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—  declaration  section 


Reduced_Angle  :  Degrees; 
Temp_Cos  :  Sin_Cos_Ratio; 

Temp_Sin  :  Sin~Cos_Ratio; 


—  —  begin  procedure  Sin  Cos 


begin 


- calculate  sine  value - 

Temp_Sin  :*  Sin_D(Input) ; 

Sin_Result  :■>  Temp  Sin; 

- reduce  input  angle  to  0  ..  360 - 

Reduced_Angle  :*  Input; 

Reduce  Positive  Angles_To  Appropriate_Range: 
while  Reduce3_Angle  >  360.0  loop 

ReducedAngle  :■  Reduced_Angle  -  360.0; 
end  loop  Reduce_Positive_Angles_To_Appropriate_Range; 

Reduce  Negative  Angles_To  Appropriate_Range: 
while  Reduce3_Angle  <  0.0  loop 

ReducedAngle  »■  Reduced_Angle  +  360.0; 
end  loop  Reduce_Negative_Angles_To_Appropriate_Range; 

- calculate  cosine  value 

Temp_Cos  :=  Sqrt(1.0  -  Temp_Sin*Temp_Sin) ; 

—  check  for  angles  in  quadrants  II  or  III  since  these  values  need  to 

—  be  negative 

if  Reduced_Angle  >  90.0  and  then 
Reduced_Angle  <  270.0  then 
Cos_Result  -  Temp_Cos; 
else 

Cos_Result  :■  Temp_Cos; 
end  if; 

end  Sin_Cos; 

pragma  PAGE; 

function  Tan  (Input  :  Radians)  return  Tan_Ratio  is 
begin 

return  Tan_R(Input) ; 
end  Tan; 

function  Tan  (Input  :  Semicircles)  return  Tan_Ratio  is 
begin 

return  Tan_S(Input) ; 
end  Tan; 
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function  Tan  (Input  :  Degrees'  return  Tan_Ratio  is 
begin 

return  Tan_D( Input) ; 
end  Tan; 

pragma  PAGE; 

function  Arcsin  (Input  :  Sin_Cos_Ratio)  return  Radians  is 
begin 

return  Arcsin_R(Input) ; 
end  Arcsin; 

function  Arcsin  (Input  :  Sin_Cos_Ratio)  return  Semicircles  is 
begin 

return  Arcsin_S(Input); 
end  Arcsin; 

function  Arcsin  (Input  :  Sin_Cos_Ratio)  return  Degrees  is 
begin 

return  Arcsin_D(Input); 
end  Arcsin; 

pragma  PAGE; 

function  Arccos  (Input  :  Sin_Cos_Ratio)  return  Radians  is 
begin 

return  Arccos_R( Input); 
end  Arccos ; 

function  Arccos  (Input  :  SinCosRatio)  return  Semicircles  is 
begin 

return  Arccos_S( Input); 
end  Arccos; 

function  Arccos  (Input  :  Sin_Cos_Ratio)  return  Degrees  is 
begin 

return  Arccos_D(Input); 
end  Arccos; 

pragma  PAGE; 

procedure  Arcsin_Arccos  (Input  :  in  Sin  Cos_Ratio; 

Arcsin_Result  :  out  RadlansJ 
Arccos  Result  :  out  Radians)  is 


—  declaration  section 


TempAsin  :  Radians; 


—  — begin  procedure  Arcsin  Arccos 


begin 

Temp  Asin  :=  Arcsin_R(Input) ; 
ArcsIn_Result  :=  Temp_Asin; 
Arccos_Result  :=  Pi_0ver_2  -  Temp_Asin; 
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end  Arcsin_Arccos; 
pragma  PAGE; 

procedure  Arcsin_Arccos  (Input  :  in  Sin  Cos_Ratio; 

Arcsin  Result  :  out  Semicircles; 
Arccos  Result  :  out  Semicircles)  is 


—  declaration  section 


Temp_Asin  :  Semicircles; 


—  — begin  procedure  Arcsin  Arccos 


begin 

Temp  Asin  :=  Arcsin_S(Input) ; 

ArcsIn_Result  :=  Temp_Asin; 

Arccos_Result  :=  0.5  -  Temp_Asin; 
end  Arcsin_Arccos; 

pragma  PAGE; 

procedure  Arcsin_Arccos  (Input  s  in  Sin_Cos_Ratio; 

Arcsin_Result  :  out  Degrees; 

ArccosResult  :  out  Degrees)  is 


—  declaration  section 


Temp_Asin  :  Degrees; 


—  — begin  procedure  Arcsin  Arccos 


begin 

Temp  Asin  :  =  Arcsin  D(Input); 

ArcsIn_Result  Temp_Alin; 

Arccos_Result  :=  90. 0~-  Temp_Asin; 
end  Arcsin_Arccos; 

pragma  PAGE; 

function  Arctan  (Input  :  Tan_Ratio)  return  Radians  is 
begin 

retur'  Arctan_R(Input) ; 
end  Arctan; 

function  Arctan  (Input  :  Tan_Ratio)  return  Semicircles  is 
begin 

return  Arctan_S(Input) ; 
end  Arctan; 

function  Arctan  (Input  :  Tan_Ratio)  return  Degrees  is 
begin 
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return  Arc tan_D( Input) ; 
end  Arc tan; 

pragma  PAGE; 

function  Arctan2  (X  :  Measurements; 

Y  :  Measurements)  return  Angles  is 


—  declaration  section 


Answer  :  Angles; 

Tan  Value  :  Tan  Ratio; 


—  — begin  function  body 


begin 

if  X  =  0.0  then 

if  Y  *  0.0  then 
Answer  0.0; 

elsif  Y  >  0.0  then 

Answer  Cycle_0ver_4 ; 

else 

Answer  :«  -CYcle_0ver_4 ; 
end  if; 

else 

if  abs(X)  >■  abs(Y)  then 

TanValue  :■  Y  /  X; 

Answer  :*=  Arctan  (Tan_Value); 

if  X  <  0.0  then 
if  Y  >■  0.0  then 

Answer  :■  Answer  +  Cycle_0ver_2; 
else 

Answer  :■  Answer  -  Cycle_0ver_2; 
end  if; 
end  if; 

else  —  abs(X)  <  abs(Y) 

Tan_Value  :=  X  /  Y; 

Answer  :=  Arctan  (Tan_Value); 

if  Y  >=  0.0  then 

Answer  :=  Cycle_0ver_4  -  Answer; 
else 

Answer  :=  -CYcle  0ver_4  -  Answer; 
end  if; 


end  if; 
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end  if; 

return  Answer; 
end  Arctan2; 
end  StandardJTrig; 
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3. 3.6.4  GEOMETRIC_OPERATIONS  TLCSC  P684  (CATALOG  #P118-0) 

This  part  contains  the  CAMP  routines  which  perform  geometric  functions  relative 
to  the  Earth  frame. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 4.1  REQUIREMENTS  ALLOCATION 

The  following  chart  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


|  Name 

1 

Requirements  Allocation 

|  Unit  Radial  Vector 

1 

R168 

j  Unit  Normal  Vector 

1 

N/A 

Compute  Segment  and  Unit  Normal  Vector 

1 

R169 

|  Compute  Segment  and  Unit  Normal 
j  with  Arcs in 

1 

N/A 

j  Great_Circle  Arc_Length 

1 

R082 

3. 3. 6. 4. 2  LOCAL  ENTITIES  DESIGN 
None. 

3. 3. 6. 4. 3  INPUT/OUTPUT 
None. 

3. 3. 6. 4. 4  LOCAL  DATA 
None. 

3. 3. 6. 4. 5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 4. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

package  body  Geometric_Operations  is 

function  Uni t_Radial_Vector 

(Lat_of  Point  :  Earth_Positions; 

Long_of_Point  :  EarthPositions) 
return  Unit_Vectors  is  separate; 
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function  Unit_Normal  Vector 

(Unit_Ra3ial_A  :  Unit_Vectors; 

Unit  Radial_B  :  Unit_Vectors)  return  Unit  Vectors  is  separate; 


procedure  Compute_Segment  and_Unit_Normal_Vector 

(Uni t_RadialI  :  in  Unit_Vectors; 

Unit_Radial2  :  in  Unit_Vectors; 

Unit_Normal2  :  out  Unit_Vectors; 

Segment_Distance  :  out  Segment_Distances)  is  separate; 


procedure  Compute_Segment  and_Unit_Normal_Vector_vith_Arcsin 


(Unit_RadialI 
Unit_Radial2 
Unit_Normal2 
Segment  Distance 


in  Unit_Vectors; 

in  Unit_Vectors; 

out  Unit_Vectors; 

out  Segment_Distances)  is  separate; 


package  body  Great_Circle_Arc_Length  is  separate; 
end  Geometric_Operations; 


3. 3. 6. 4. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3. 3. 6. 4. 8  LIMITATIONS 
None. 


3. 3. 6. 4. 9  LLCSC  DESIGN 

3. 3. 6. 4. 9.1  GREATCIRCLEARCLENGTH  PACKAGE  DESIGN  (CATALOG  #P122-0) 

This  package  contains  the  function  required  to  compute  the  great  circle  arc 
length  of  a  course  segment  given  the  latitude  and  longitude  of  the  two 
endpoints. 

The  circle  arc  length  equals:  circle  radius  *  angle  subtended  by  the  arc 

To  define  the  angle  subtended  by  the  arc  this  part  calculates  the  unit  radial 
vectors  to  the  end  points  of  the  arc.  Since  the  radials  vectors  have  a  length 
of  1  and  since  it  is  assumed  the  angle  subtended  by  the  arc  is  "relatively 
small",  the  following  is  true: 

arc  length  =  radius  *  angle 

=  radius  *  sin(angle) 

=  radius  *  (l)*(l)*sin(angle) 

=  radius  *  (length  of  UR  A)  *  (length  of  UR_B)  *  sin(angle) 

=  radius  *  length(URB  X  UR_A) 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 
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3. 3. 6. 4. 9. 1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirements  R082. 


3. 3. 6. 4. 9. 1.2  LOCAL  ENTITIES  DESIGN 


Packages : 

The  following  table  describes  the  package  contained  local  to  this  part: 


|  Name 

1  Type 

|  Description  | 

|  V  Opns 

1  "" 

|  package 

1 

|  Defines  a  vector  type  and  provides  operations  on  that 

I  type 


Subprograms: 

The  following  subprograms  are  defined  local  to  this  part: 

|  Name  | 

Type  | 

Description 

1 

|  Unit_Rad_Vector  | 

function  | 

Computes  the  unit  radial  vector  of  a  point  | 

3. 3. 6. 4. 9. 1.3  INPUT/OUTPUT 

GENERIC  PARAMETERS: 

The  following  generi 

c  parameters 

were  previously  defined  when  this  part 

was 

specified. 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this 

part: 

|  Name  | 

Type 

|  Description 

1 

|  Earth  | 

floating 

1  Data  type  used  to  define  distance 

1 

i  Distances  j 

point  type 

|  measurements  involving  the  Earth's  radius  | 

j  Segment 

floating 

j  Data  type  used  to  define  distance  measure-  | 

Distances  | 

point  type 

menets  involving  nagivation  segments 

1 

j  Earth  Positions  j 

floating 

|  Data  type  of  longitude/latitude 

1 

point  type 

measurements 

1 

|  Sin  Cos  Ratio  [ 

floating 

j  Data  type  of  results  of  sine/cosine 

1 

point  type 

j  routines 

1 

Data  objects: 
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The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

Type 

Value 

|  Description  | 

|  Earth  Radius 

Earth  Distances 

N/A 

|  Radius  of  the  Earth  | 

Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part : 


|  Name 

Type 

| 

function 

|  Sqrt 

function 

|  Sin  Cos 

procedure 

Description 


Operator  defining  the  operation: 
Earth_Distances  *  Sin_Cos_Ratio  => 

Segment_Di stances 
Square  root  function 

Returns  the  sine  and  cosine  of  an  input  value 


FORMAL  PARAMETERS: 

The  following  table  defines  the  formal  parameters  of  the  function  contained  in 
this  package: 


|  Name 

1  Type 

Value  |  Description  | 

|  Latitude_A 
j  LatitudeB 
j  Longitude  A 
j  LongitudeB 

Earth  Positions 
Earth_Positions 
Earth  Positions 
Earth  Positions 

\  Latitude  and  longitude  of  point  A  | 

/  1 

\  Latitude  and  longitude  of  point  B 

/  1 

3. 3. 6. 4. 9. 1.4  LOCAL  DATA 
Data  types: 

The  following  table  describes  the  data  types  defined  by  this  part: 


|  Name 

|  Description  | 

|  Unit  Vectors  | 
1  1 

Subtype  of  Vector  Operations .Vectors  (one-dimensional  array  | 
of  Sin_Cos_Ratio) 

Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  the  function 
contained  in  this  part: 
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Name 


I  Type 


Description 


Unit_Radial_A 

UnitRadialB 

Unit_Normal_B 

VLength 


Unit_Vectors 
Unit_Vectors 
Unit_Vectors 
Sin  Cos  Ratio 


Unit  radial  vector  pointing  to  point  A 
Unit  radial  vector  pointing  to  point  B 
Segment  AB  unit  normal  vector 
Length  of  a  vector  resulting  from  a  cross 
product  of  UR_A  and  UR_B  which,  because 
of  the  geometry,  equals  the  angle  between 
the  two  radial  vectors 


3. 3. 6. 4. 9. 1.5  PROCESS  CONTROL 


Not  applicable. 


3. 3. 6. 4. 9. 1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

with  Coordinate_Vector_Matrix_Algebra; 
separate  (Geometric_Operations) 
package  body  Great_Circle_Arc_Length  is 

I*.  package  CVMA  renames  Coordinate  Vector_Matrix_Algebra; 

» 


—  — local  declarations- 


type  Indices  is  (X,  Y,  Z); 

—  — instantiation  to  get  a  vector  type  and  a  vector  length  function 


package  V_Opns  is  new  CVMA.Vector_Operations 

(Axes  ->  Indices, 

Elements  «>  Sin_Cos_Ratio, 

Elements_Squared  *>  Sin_Cos_Ratio) ; 

subtype  Unit_Vectors  is  V_0pns. Vectors; 


function  Vector_Length  (Input  :  Unit_Vectors) 

return  Sin_Cos_Ratio 
renames  V_Opns.Vector_Length; 


—  — instantiations  to  obtain  required  operations 


function  Cross_Prod  is  new 

CVMA.Cross_Product  (Axes  => 

Lef t_Elements  => 
Right_Elements  => 
Result_Elements  => 
Left_Vectors  => 
Right  Vectors  => 
Resull  Vectors  => 


Indices, 

Sin_Cos_Ratio, 

Sin_Cos_Ratio, 

Sin_Cos_Ratio, 

Unit_Vectors , 

Unit_Vectors, 

Unit  Vectors); 
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function  Unit_Rad_Vector  is  new 
Unit  Radial  Vector 


(Indices 
Earth_Positions 
Sin_Cos_Ratio 
Unit  Vectors 


=>  Indices, 

=>  Earth_Positions, 
=>  Sin_Cos_Ratio, 

->  Unit  Vectors); 


—  — function  body- 


function  Compute  (Latitude_A  :  Earth_Positions; 

Latitude_B  :  Earth_Positions; 

Longitude_A  :  Earth_Positions; 

Longitude_B  :  Earth_Positions)  return  Segment_Distances  is 


— declaration  section- 


Unit_Radial_A 

Unit_Radial_B 

Unit_Normal_B 

V_Length 


Unit_Vectors; 
Unit_Vectors; 
Unit_Vectors; 
Sin  Cos  Ratio 


—  — begin  function  Compute- 


begin 

Unit_Radial_A  :=  Unit_Rad_Vector(Lat_of  Point  ■>  Latitude_A, 

Long_oI_Point  «>  Longitude  A); 

Unit_Radial_B  :=  Unit_Rad_Vector(Lat_of  Point  ■>>  Latitude  B, 

Long_oI_Point  ■>  Longitude_B) ; 

Unit_Normal_B  ;*  Cross_Prod  (Left  *>  Unit_Radial_B, 

Right  ■>  Unit_Radial_A) ; 

— because  of  the  geometry,  the  length  of  vector  UN_B  equals 
— the  angle  between  the  two  radial  vectors 
V_Length  :«  Vector_Length(Unit_Normal_B); 

return  Earth_Radius  *  V_Length; 

end  Compute; 

end  Great_Circle_Arc_Length; 


3. 3. 6. 4. 9. 1.7  UTILIZATION  OF  OTHER  ELEMENTS 

The  following  library  units  are  with'd  by  this  part: 
1.  Coordinate  Vector_Matrix_Algebra  (CVMA) 
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UTILIZATION  OF  EXTERNAL  ELEMENTS: 

Packages : 

The  following  table  describes  the  packages  required  by  this  part: 


|  Name  | 

Type  |  Source 

|  Description  | 

|  Vector  | 

Operations  j 

generic  |  CVMA 
package  j 

|  Defines  a  vector  type  and  provides  ; 

j  operations  on  that  type  i 

Subprograms  and 

task  entries: 

The  following  table  describes  the  subprograms  required  by  this  part  and 
contained  in  CVMA.Vector_Operations: 


|  Name  | 

Type  | 

Description  | 

|  Vector_Length  | 

function  | 

Calculates  the  length  of  a  vector  | 

The  following  table  describes 
contained  in  CVMA: 

the  subprograms  required  by  this  part  and 

|  Name  | 

Type  | 

Description  | 

|  Cross  Product  | 

1  "  1 

generic 
function  j 

Calculates  the  cross  product  of  tvo  | 

vectors,  returning  the  resultant  vector  j 

Data  types: 

The  following  table  describes  the  data  types  used  by  this  part  and  defined  in 
CVMA . Vec  tor_Opera t ions : 


|  Name  j 

Type  | 

Range 

Description  | 

|  Vectors  | 

array  | 

N/A 

One-dimensional  array  | 

UTILIZATION 

OF  OTHER 

ELEMENTS 

IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Subprograms  and  task  entries: 

The  following  table  describes  the  subprograms  required  by  the  function 
contained  in  this  part  and  defined  in  the  package  specification  of  Geometric- 
Operations. 
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|  Name 

1  Type 

|  Description  | 

|  Unit  Radial  Vector 

1 

|  generic 
j  function 

j  Computes  the  unit  radial  vector  of  a  | 

j  point 

3. 3. 6. 4. 9. 1.8  LIMITATIONS 


None. 


3. 3. 6. 4. 9. 1.9  LLCSC  DESIGN 
None. 


3.3.6.4.9.1.10  UNIT  DESIGN 


None. 


3.3.6.4.10  UNIT  DESIGN 

3.3.6.4.10.1  UNITRADIALVECTOR  UNIT  DESIGN  (CATALOG  #P119-0) 

This  part  computes  the  unit  radial  vector  of  a  point  given  the  point's  latitude 
and  longitude.  It  extends  outward  from  the  origin  of  the  Earth-  centered 
reference  frame  towards  the  point  whose  latitude  and  longitude  are  given. 

The  computations  performed  by  this  part  are  as  follows: 

UR(X)  :=  Cos(Lat)  *  Cos(Long) 

UR(Y)  :=  Cos(Lat)  *  Sin(Long) 

UR(Z)  :=  Sin(Lat) 


3,3.6.4.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R168. 


3.3.6.4.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.4.10.1.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  when  this  part  was 
specified: 
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Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description 

1 

|  Indices 

discrete 

j  Used  to  dimension  arrays 

type 

1 

j  Earth  Positions 

floating 

|  Data  type  of  longitude/latitude  values 

point 

1 

|  Sin  Cos  Ratio 

floating 

|  Data  type  of  results  of  sine/cosine 

point 

j  routines 

|  Unit  Vectors 

array 

j  One-dimensional,  3-element  array  of 

j  Sin  Cos  Ratio  dimensioned  by  Indices 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

Value 

Description 

1 

1  x 

|  Indices 

'FIRST 

Index  into  first  element 

of  array  | 

1  Y 

j  Indices 

'SUCC(X) 

Index  into  second  element 

of  array  j 

1  z 

|  Indices 

'LAST 

Index  into  third  element 

of  array  j 

Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

Type 

Description  | 

|  Sin_Cos 

procedure 

Returns  the  sine  and  cosine  of  an  input  value  | 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|  Lat  of  Point 

1 

|  Earth  Positions 

1 

1  In 

|  Latitude  of  point  for  which  a 
j  unit  radial  vector  is  desired 

j  Long  of  Point 

1 

|  Earth  Positions 

1 

1  In 

j  Latitude  of  point  for  which  a  j 

j  unit  radial  vector  is  desired 

V 


1 
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3.3.6.4.10.1.4  LOCAL  DATA 


Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


I 

Name 

Type 

Value 

|  Description 

1 

1 

Sin  of 

Lat 

Sin  Cos  Ratio 

N/A 

j  Sine  of  latitude  of  point 

1 

1 

Cos  of 

Lat 

Sin  Cos  Ratio 

N/A 

]  Cosine  of  latitude  of  point 

1 

1 

Sin  of 

'Long 

Sin  Cos  Ratio 

N/A 

j  Sine  of  longitude  of  point 

1 

Cos  of 

Long 

Sin  Cos  Ratio 

N/A 

|  Cosine  of  longitude  of  point 

Radial 

Vector 

Unit  Vectors 

N/A 

j  Radial  vector  being  calculated 

1 

|  and  returned 

1 

3.3.6.4.10.1.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.4.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (Geometric  Operations) 
function  UnitRadiaT  Vector 

(Eat_of  Point  :  Earth_Positions; 

Long_oT_Point  :  Ear th_Posit ions)  return  Unit_Vectors  is 


—  — declaration  section- 


Sin_of_Lat 
Cos_of_Li  i 
Sin_of_Long 
Cos  of_Long 
Radial  Vector 


:  Sin_Cos_Ratio; 
:  Sin_Cos_Ratio; 
:  Sin_Cos~Ratio; 
:  Sin_Cos~Ratio; 
:  Unit  Vectors; 


— begin  function  Unit_Radial_Vector- 


begin 

SinCos  (Input 
Sine 
Cosine 

Sin_Cos  (Input 
Sine 
Cosine 


=>  Lat_of_Point , 
=>  Sin_of_Lat, 

=>  Cos_of_Lat); 

=>  Long_of_Point , 
=>  Sin_of_Long, 

=>  Cos_of_Long) ; 


Radial  Vector(X)  :=  Cos  of  Lat  *  Cos  of  Long; 
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Radial_Vector(Y)  Cos_of_Lat  *  Sin_of_Long; 
RadialVector(Z)  :*  Sin_of_Lat; 

return  Radial_Vector; 

end  Unit  Radial  Vector; 


3.3.6.4.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.4.10.1.8  LIMITATIONS 


None. 


3.3.6.4.10.2  UNIT_NORMAL_VECTOR  UNIT  DESIGN  (CATALOG  #P120-0) 

This  function  computes  the  segment  unit  normal  vector  for  a  course  segment 
given  the  unit  radial  vectors  for  the  two  points  defining  the  course  segment. 

The  computations  performed  by  this  part  are  as  follows: 

UN_B  :«  UR_B  X  UR  A  /  Length (UR_B  X  UR_A) 
where  UN_B  unit  normal  vector 

UR_B  :»  unit  radial  vector  to  point  B 
UR_A  : --  unit  radial  vector  to  point  A 


3.3.6.4.10.2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R169. 


3.3.6.4.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.4.10.2.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  when  this  part  v^s 
specified: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name  | 

Type 

|  Description  | 

|  Unit  Vectors 

i  i 

|  Sin  Co5>  Ratio  | 

1  "  1 

private 

floating 
point  type 

|  One-dimensional,  3-element  array  of  | 
j  Sin_Cos_Ratio  j 
j  Data  type  of  results  of  sine/cosine  routines  | 

1  •  1 

Subprograms : 

The  following  table  describes 
part: 

the  generic  formal  subroutines  required  by  this 

|  Name  | 

Type  | 

Description  | 

1  | 

1  : 

|  Cross  Product  | 

j  Vector  Length  j 

function  | 

function  i 
function  | 

Division  operator  defining  the  operation:  ] 

Unit  Vectors  /  Sin  Cos  Ratio  «>  Unit  Vectors  j 
Cross  product  function  j 

Vector  length  function  j 

FORMAL  PARAMETERS 

• 

* 

The  following -table  describes 

this  part's  formal  parameters: 

|  Name  | 

Type 

|  Mode  |  Description  | 

|  Unit_Radial_A  | 

|  Unit  Radial  B  | 

1  "  1 

Uni t_Vec tors 

Unit  Vectors 

|  In  |  Unit  radial  vector  defining  one 

endpoint  of  the  course  segment 
j  In  j  Unit  radial  vector  defining  one  j 

i  [  endpoint  of  the  course  segment  1 

3.3.6.4.10.2.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

|  Value 

|  Description  | 

|  Unit  Normal  B 

|  Unit  Vectors 

|  N/A 

|  Vector  being  calculated  and  [ 

1 

1 

i  returned  j 

|  V  Length 

j  Sin  Cos  Ratio 

j  N/A 

j  Vector  length  j 

3.3.6.4.10.2.5  PROCESS  CONTROL 


Not  applicable. 
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3.3.6.4.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (Geometric  Operations) 
function  Unit_NormaI  Vector 

(Uni  t_Ra<!ial_A  :  Unit_Vectors; 

Unit-Radial~B  :  Unit  Vectors)  return  Unit  Vectors  is 


—  — declaration  section- 


Unit_Normal_B  :  Unit_Vectors; 
V_Length  :  Sin_Cos_Ratio; 


— begin  function  Unit_Normal_Vector- 


begin 

Unit_Normal_B  :«  Cross_Product(Lef t  •>  Unit_Radial_B, 

Right  ->  Unit~Radial_A); 
V_Length  :«  Vector_Length( Input  ->  Unit_Normal_B) ; 

return  (Unit  Normal  B  /  V  Length); 

end  Unit  Normal  Vector; 


3.3.6.4.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3. '5. 6. 4. 10. 2. 8  LIMITATIONS 


None. 


3.3.6.4.10.3  COMPUTE_SEGMENT_AND_UNIT_NORMAL_VECTOR  UNIT  DESIGN  (CATALOG  #P121-0) 

This  procedure  computes  the  segment  unit  normal  vector  for  a  course  segment  and 
the  length  of  the  course  segment,  given  the  unit  radial  vectors  for  the  2 
points  defining  the  course  segment. 

The  computations  performed  by  this  part  are  as  follows: 

UN_2  :=  UR_2  X  UR  1  /  Length (UR_2  X  UR_1) 

Seg  Dist  :=  Earth_RadIus  *  Length(UR_2  X  UR_1) 
where  UN_2  :==  unit  normal  vector 

UR_2  :==  unit  radial  vector  to  point  2 

UR_1  :==  unit  radial  vector  to  point  1 

Seg_Dist  :==  great  circle  arc  length  between  points  1  and  2 
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3.3.6.4.10.3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R169. 


3.3.6.4.10.3.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.4.10.3.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  when  this  part  was 
specified: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

Description  | 

|  Indices 

j  Earth_ 
j  Distances 
|  Segment_ 
j  Distances 
j  Sin_Cos_Ratio 

j  Unit  Vectors 

I 

|  discrete 

1  type 
|  floating 
point  type 
j  floating 
!  point  type 
j  floating 
j  point  type 
j  array 

1 

1 

Used  to  dimension  UnitVectors;  this  type 
should  have  a  length  of  3 

Data  type  used  to  define  distance 
measurements  involving  the  Earth's  radius 

Data  type  used  to  define  distance  measure- 
menets  involving  nagivation  segments 

Data  type  used  to  define  results  of  sine/ 
cosine  operations 

One-dimensional,  3-element  array  indexed  by 
Indices  and  containing  Sin_Cos_Ratio 
elements 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part 

|  Name 

Type 

|  Value  |  Description  | 

|  Earth_Radius 

Earth_Distances  |  N/A  |  Radius  of  the  Earth  | 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 
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|  Name  |  Type  |  Description 


«*» 


function 


It  j  ft 


function 


Cross_Product  |  function 
VectorLength  |  function 


Operator  defining  the  operation: 
Earth_Distances  *  Sin_Cos_Ratio  *> 
Segment_Distances 
Operator  defining  the  operation: 

Unit  Vectors  /  Sin_Cos_Ratio  «>  Unit_Vectors 
Calculates  the  cross  product  of  two  units 
Calculates  the  length  of  a  vector 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


1 

Name 

1  Type 

Mode 

Description 

1 

1 

Unit  Radiall 

|  Unit  Vectors 

in 

Unit  radial  vector  to  waypoint  B 

1 

1 

Unit_Radial2 

j  Unit  Vectors 

in 

Unit  radial  vector  to  waypoint  C 

1 

1 

Unit  Normal2 

j  Unit  Vectors 

out 

Segment  unit  normal  vector 

1 

1 

Segment 

j  Segment 

out 

Great  circle  arc  length  between 

1 

1 

Distance 

j  Distances 

points  1  and  2 

1 

3.3.6.4.10.3.4  LOCAL  DATA 


Data  objects: 


The  following  table 

describes  the  data  objects 

maintained  by  this  part: 

|  Name 

Type 

Value  | 

Description  | 

(  Temp  Unit  Vector 

Unit  Vectors 

N/A  | 

Temporary  unit  vector  | 

|  V_Length 

Sin_Cos_Ratio 

N/A  j 

Vector  length  j 

3.3.6.4.10.3.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.4.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (Geometric_Operations) 
procedure  Compute_Segment_and_Unit_Normal_Vector 
(Unit_Radiall  :  in  Uni t_Vectors ; 

Unit_Radial2  :  in  Unit  Vectors; 

Unit_Normal2  :  out  Unit_Vectors; 

Segment_Distance  :  out  Segment  Distances)  is 
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—  — declaration  section- 


Temp_Uni t_Vector  :  Unit_Vectors; 
VLength  :  Sin_Cos  Ratio; 


— begin  procedure  Compute_Segment_and_Unit_Normal_Vectcr- 


begin 

Temp_Unit_Vector  :■  Cross_Product(Lef t  ■>  Unit_Radial2, 

Right  ->  Unit_Radiall) ; 

V_Length  Vector_Length(Input  *>  Temp_Unit_Vector); 

Unit_Normal2  :=  Temp_Unit_Vector  /  V_Length; 
Segment_Distance  :=  Earth_Radius  *  V_Length; 
end  Compute_Segment_and_Uni  t_Normal_Vector; 


3.3.6.4.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.4.10.3.8  LIMITATIONS 
None. 


3.3.6.4.10.4  COMPUTE  SEGMENT_AND_UNIT_NORMAL_VECTOR_WITH_ARCSIN  UNIT  DESIGN 
(CATALOG  #Pl050-0) 

This  procedure  computes  the  segment  unit  normal  vector  for  a  course  segment  and 
the  length  of  the  course  segment,  given  the  unit  radial  vectors  for  the  2 
points  defining  the  course  segment. 

The  computations  performed  by  this  part  are  as  follows: 

UN_2  UR_2  X  UR  1  /  Length(UR_2  X  UR  1) 

Seg_Dist  :=  Earth_RadTus  *  Arcsin(Lingth(UR_2  X  UR_1)) 
where  UN_2  :==  unit  normal  vector 

UR_2  :==  unit  radial  vector  to  point  2 

UR_1  :==  unit  radial  vector  to  point  1 

Seg_Dist  :==  great  circle  arc  length  between  points  1  and  2 


3.3.6.4.10.4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R169. 
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3.3.6.4.10.4.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.4.10.4.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  defined  when  this  part  was 
specified: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 


I  Type 


|  Description 


|  Indices 

discrete  |  Used  to  dimension  Unit  Vectors;  this  type 

type  j  should  have  a  length  of  3 

|  Earth_ 

floating  |  Data  type  used  to  define  distance 

j  Distances 

point  type  j  measurements  involving  the  Earth's  radius 

j  Segment_ 

floating  |  Data  type  used  to  define  distance  measure- 

j  Distances 

point  type  |  menets  involving  nagivation  segments 

j  Radians 

floating  |  Data  type  used  to  define  angular  measurement 

1 

point  type  j 

|  Sin_Cos_Ratio 

floating  |  Data  type  used  to  define  results  of  sine/ 

point  type  j  cosine  operations 

|  Unit_Vectors 

array  j  One-dimensional,  3-element  array  indexed  by 

j  Indices  and  containing  Sin_Cos_Ratio 

1 

j  elements  ~  ~ 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

|  Value 

|  Description  | 

|  Earth_Radius 

|  Ear th_Di stances 

|  N/A 

|  Radius  of  the  Earth  | 

Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 
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Name 

Type 

1  »*" 

function 

ti/n 

function 

j  Cross  Product 

function 

j  VectorLength 

function 

|  Description 


Operator  defining  the  operation: 
Earth_Distances  *  Sin_Cos_Ratio  => 

Segmen  t_Di s  t ances 
Operator-defining  the  operation: 

Unit  Vectors  /  Sin_Cos_Ratio  ->  Unit_Vectors 
Calculates  the  cross  product  of  two  units 
Calculates  the  length  of  a  vector 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


1 

Name 

1  Type 

i 

Mode 

|  Description  | 

1 

Unit  Radiall 

|  Unit  Vectors 

1 

in 

|  Unit  radial  vector  to  waypoint  B 

1 

Unit  Radial2 

j  Unit  Vectors 

in 

j  Unit  radial  vector  to  waypoint  C 

i 

Unit  Normal2 

j  Unit  Vectors 

1 

out 

j  Segment  unit  normal  vector 

! 

Segment 

j  Segment 

1 

out 

j  Great  circle  arc  length  between 

1 

Distance 

j  Distances 

1 

j  points  1  and  2 

3.3.6.4.10.4.4  LOCAL  DATA 


Data  objects: 


The  following  table 

describes  the 

data  objects  maintained  by  this  part: 

|  Name 

1  Type 

|  Value 

|  Description  | 

|  Temp  Unit  Vector  | 

Unit  Vectors 

|  N/A 

|  Temporary  unit  vector 

j  V  Length  | 

Sin_Cos_Ratio 

j  N/A 

j  Vector  length  j 

3.3.6.4.10.4.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.4.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
separate  (Geometric_Operations) 

procedure  Compute_Segment_and_Uni t_Normal_Vector_wi th_Arcsin 
(Uni t_Radiall  :  in  Unit_Vectors; 

Unit_Radial2  :  in  Unit_Vectors; 

Unit_Normal2  :  out  Unit_Vectors; 

Segment_Distance  :  out  Segment_Distances)  is 
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—  — declaration  section- 

Temp_Unit_Vector  :  Unit_Vectors; 

VLength  :  Sin_Cos_Ratio; 

— begin  procedure  Compute_Segment_and_Unit_Normal_Vector- 

begin 

Temp_Unit_Vector  :«  Cross_Product(Left  ■>  Unit  Radial2, 

Right  ->  Uni t~Radiall) ; 

V_Length  :*  Vector_Length(Input  «>  Temp~Unit_Vector) ; 

Unit_Normal2  :«  Temp_Unit_Vector  /  V_Length; 
Segment_Distance  :*  Earth_Radius  *  Arcsin(V_Length) ; 
end  Compute_Segment_and_Unit_Normal_Vector_vith_Arcsin; 

3.3.6.4.10.4.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.4.10.4.8  LIMITATIONS 


None. 
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package  body  Geometric_Operations  Is 

function  Unit  Radial_Vector 

(Lat_0f  Point  :  Earth_Positionsj 
Long_Ol_Point  :  Earth_Positions) 
return  Uiiit_Vectors  is  separate; 

function  Unit_Normal  Vector 

(Unit_Ra3ial_A  :  Unit_Vectors; 

Unit_Radial_B  :  Unit_Vectors)  return  Unit_Vectors  is  separate; 

procedure  Compute_Segment  And_Unit_Normal_Vector 

(Unit_RadialI  :  in  Unit_Vectors; 

Unit_Radial2  :  in  Unit~Vectors; 

Unit_Normal2  :  out  Uni t~Vec tors; 

Segment_Di stance  :  out  Segment_Distances)  is  separate; 

procedure  Compute_Segment  And_Unit_Normal_Vector_With_Arcsin 
(Unit_RadialT  :  in  Unit_Vectors; 

Unit_Radial2  :  in  Unit~Vectors; 

Unit_Normal2  :  out  Uni t_Vec tors; 

Segment_Distance  :  out  Segment_Distances)  is  separate; 

package  body  Great_Circle_Arc_Length  is  separate; 


end  Geometric_Operations; 
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separate  (Geometric  Operations) 
function  Unit_RadiaI_Vector 

(Lat_0f  Point  :  Earth_Positions; 

Long_Ol_Point  :  Earth_Positions)  return  Unit_Vectors  is 


—  —  declaration  section- 


Sin_Of_Lat 
Cos_0f_Lat 
Sin_Of_Long 
Cos  Of_Long 
Radial  Vector 


:  Sin_Cos_Ratio; 
:  Sin_Cos__Ratio; 
:  Sin_Cos_Ratio; 
:  Sin_Cos_Ratio; 
:  Unil  Vectors; 


—  begin  function  Unil  Radial  Vector- 


begin 

Sin_Cos  (Input  «>  Lat_Of_Point, 

Sine  ->  Sin_0f_Lat , 

Cosine  «>  Cos_Of_Lat); 

Sin_Cos  (Input  ■>  Long_Of  Point, 

Sine  «>  Sin_Of_Iong, 

Cosine  ->  CosOfLong) ; 

Radial_Vector(X)  Cos_Of_Lat  *  Cos_Of_Long; 
Radial_Vector(Y)  :«  Cos”0f_Lat  *  Sin~Of~Long; 
Radial  Vector(Z)  :«  Sin 'Of  Lat; 


return  Radial_Vector; 
end  Unit  Radial  Vector; 
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separate  (Geometric  Operations) 
function  Unit_NormaT  Vector 

(Unit_Racfial_A  :  Unit_Vectors; 

Unit  Radial  B  :  Unit  Vectors)  return  Unit  Vectors  is 


—  — declaration  section- 


Unit_Normal_B  :  Unit_Vectors; 
VLength  :  Sin_Cos_Ratio; 


—  begin  function  Unit  Normal  Vector- 


begin 

Unit_Normal_B  Cross_Product(Lef t  *>  Unit  Radial_B, 

Right  «>  Unit~Radial_A); 
V_Length  :  =  Vector_Length(Input  «>  Unit~Normal_B); 

return  (Unit_Normal_B  /  V_Length); 

end  Unit_Normal_Vector; 
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separate  (Geometric_Operations) 
procedure  Compute_Segment  And_Unit_Normal_Vector 
(Unit_RadialI  :  in  Unit_Vectors; 

Unit_Radial2  :  in  Unit_Vectors; 

Unit_Normal2  :  out  Uni t_Vec tors; 

Segment_Distance  :  out  Segment_Distances)  is 


—  — declaration  section- 


Temp_Unit_Vector  :  Unit_Vectors; 
V_Length  :  Sin_Cos_Ratio; 


—  begin  procedure  Compute  Segment  and  Unit  Normal  Vector- 


begin 

Temp_Unit_Vector  :=  Cross_Product(Lef t  «>  Unit_Radial2, 

Right  ->  Unit_Radiall); 

V_Length  :>  Vector_Length(Input  ->  Temp_Unit_Vector) ; 

Unit_Normal2  s-  Temp_Unit_Vector  /  V_Length; 

SegmentDistance  EarthRadius  *  V_Length; 
end  ComputeSegmentAndUni tNormalVector ; 
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wi  th  Coord i na t e_Vec t or_Ma t  r i x_Algebra ; 
separate  (Geometric_Operations) 
package  body  Great_Circle_Arc_Length  is 

package  Cvma  renames  Coordinate_Vector_Matrix  Algebra; 


—  —  local  declarations- 


type  Indices  is  (X,  Y,  Z); 

—  —  instantiation  to  get  a  vector  type  and  a  vector  length  Junction 

package  V_0pns  is  nev  Cvma. Vector_Operat ions 

(Axes  *>  Indices, 

Elements  «>  Sin_Cos_Ratio, 

Elements_Squared  *>  Sin_Cos_Ratio) ; 

subtype  Unit_Vectors  is  V_0pns. Vectors; 

function  Vector  Length  (Input  :  UnitJ?ectors) 

return  SinCosRatio 
renames  V_Opns.Vector_Length; 

—  —  instantiations  to  obtain  required  operations 

function  CrossProd  is  nev 

Cvma.CrossJProduct  (Axes  »>  Indices, 

LeftJElements  ■>  Sin_Cos  Ratio, 
Right_Elements  ->  Sin~CosJRatio, 
ResulI_Elements  ->  Sin_Cos~Ratio, 
Left_Vectors  ■>  Uni t_Vec tors, 
Right_Vectors  ■>  Unit~Vectors, 
Result_Vectors  ■>  Uni t_Vec tors ) ; 

function  Unit_Rad_Vector  is  nev 

Unit_Radial_Vector  (Indices  ->  Indices, 

Ear th_Posi ♦ions  «>  Ear th_Posit ions, 
Sin_Cos_Ratio  ->  Sin_Cos_Ratio, 
Unit_Vectors  ■>  Unit_Vectors) ; 

pragma  PAGE; 


—  — function  body- 


function  Compute  (Latitude_A  :  Earth_Positions; 

Latitude_B  :  Earth_Positions; 

Longitude_A  :  Ear th_Posit ions; 

Longitude_B  :  Earth_Positions)  return  Segment_Distances  is 


—  declaration  section- 


Unit  Radial  A  :  Unit  Vectors; 
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Unit_Radial_B  :  Uni t_Vec tors; 
Uuit_Normal_B  :  Uni t_Vec tors; 
VLength  :  Sin_Cos_Ratio; 


—  — begin  function  Compute- 


begin 

Unit_Radial_A  :=  Unit_Rad_Vector(Lat_Of  Point  =>  Latitude_A, 

Long_Ol_Point  *=>  Longitude_A) ; 

Unit_Radial_B  :*  Unit_Rad_Vector(Lat_Of  Point  «>  Lati'cude_B, 

Long_Ol_Point  ->  Longitude_B) ; 

Unit_Normal_B  :=  Cross_Prod  (Left  «>  Unit_Radial_B, 

Right  =>  Unit_Radial_A); 

—  because  of  the  geometry,  the  length  of  vector  UN  B  equals 

—  the  angle  between  the  two  radial  vectors 

V_Length  :*  Vector_Length(Unit_Normal_B) ; 

return  Earth_Radius  *  V  Length; 
end  Compute; 

end  GreatCircleArcLength; 
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separate  (Geometric_Operations) 

procedure  Compute_Segment  And_Unit_Normal_Vector_Vith_Arcsin 
(Unit_RadialT  :  in  Unit_Vectors; 

Unit_Radial2  :  in  Unit_Vectors; 

Unit_Normal2  :  out  Unit_Vectors; 

Segment_Di stance  :  out  Segment_Distances)  is 


—  — declaration  section- 


Temp_Unit_Vector  :  Unit_Vectors; 

V  Length  :  Sin  Cos  Ratio; 


—  begin  procedure  Compute  Segment  and  Unit  Normal  Veclor- 


begin 


Temp_Uni t_Vector 
V_Length 


Cross_Product(Lef t  ->  Unit_Radial2, 
Right  ->  Unit_Radiall) ; 
Vector_Length(Input  ->  Temp_Unit_Vector); 


Unit  Normal2 


-  Temp_Unit_Vector  /  V_Length; 


Segmen  t_Di s  t ance 


EarthRadius  *  Arcsin(VLength) ; 


end  Compute_Segment_And_Uni  t_Normal_Vector_Vi  th_Arcsin ; 
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3. 3.6.5  DATA  CONVERSION 
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3. 3. 6. 5.1  UNIT_CONVERSIONS  (PACKAGE  BODY)  TLCSC  P851  (CATALOG  #P631-0) 

This  part,  which  is  a  package  of  generic  packages,  provides  a  set  of  functions 
which  convert  data  objects  from  one  unit  of  measurement  to  another. 

The  table  below  shows  which  package  contains  the  functions  to  perform  the  unit 
conversions  between  which  units: 


|  Name 

1  Type  A 

|  Type  B  | 

|  Meters  and  Feet 

Meters 

Feet 

I  Meters  and  Feet 

Meters  per  Second 

Feet  per  Second 

j  per  Second 

Meters  and  Feet 

Meters  per 

Feet  per  Second  Squared 

|  per  Second  Squared 

Second  Squared 

j  Gees  and  Meters 
j  per  Second  Squared 

Gees 

Me  ters_per_Second 

Squared 

j  Gees  and_Feet_ 

|  per  Second  Squared 

Gees 

Fee  t_per_Second_Squared 

|  Radians  and  Degrees 

Radians 

Degrees 

j  Radians  and_Degrees_ 
j  per  Second 

Radians_per_Second 

Degrees_per_Second 

j  Radians  and  Semicircles 

Radians 

Semicircles 

Radians  and  Semicircles 

Radians  per  Second 

Semicircles  per  Second 

j  per  Second 

j  Degrees  and  Semicircles 

Degrees 

Semicircles 

j  Degrees  and  Semicircles 

Degrees  per  Second 

Semicircles  per  Second 

per  Second 

j  Seconds  and  Minutes 

Seconds 

Minutes 

j  Centigrade_and_ 
j  Fahrenheit 

Centigrade 

Fahrenheit 

j  Centigrade  and  Kelvin 

Centigrade 

Kelvin 

j  Fahrenheit  and  Kelvin 

Fahrenheit 

Kelvin 

j  Kilograms  and  Pounds 

Kilograms 

Pounds 

j  Kilograms_per 

Meter_Squared_and_ 
j  Pounds  per_Foot_ 
j  Square? 

Kilograms_per_ 

Meters_Squ?jred 

Pounds_per_Foo  t_Squared 

The  following  table  lists  the  catalog  numbers  for  subunits  contained  in  this 
part : 
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1 

Name 

|  Catalog  _# 

1 

Kilograms  per  Meter  Squared  and 

|  P632-0 

1 

Pounds  per  Foot  Squared 

! 

Conversion  to  Pounds  per  Foot2 

|  P633-0 

1 

Conversion  to  Kilograms  per  Meter2 

|  P634-0 

1 

Meters  and  Feet 

|  P635-0 

Conversion  to  Feet 

i  P636-0 

Conversion  to  Meters 

j  P637-0 

Meters  and  Feet  per  Second 

!  P638-0 

1 

Conversion  to  Feet  per  Second 

i  P639-0 

! 

Conversion  to  Meters  per  Second 

j  P640-0 

1 

Meters  and  Feet  per  Second  Squared 

j  P641-0 

i 

Conversion  to  Feet  per  Second2 

|  P642-0 

1 

Conversion  to  Meters  per  Second2 

j  P643-0 

1 

Gees  and  Meters  per  Second  Squared 

j  P644-0 

Conversion  to  Meters  per  Second2 

j  P645-0 

Conversion  to  Gees 

i  P646-0 

Gees  and  Feet  per  Second  Squared 

!  P647-0 

1 

Conversion  to  Feet  per  Second2 

!  P648-0 

1 

Conversion  to  Gees 

i  P649-0 

1 

Radians  and  Degrees 

P650-0 

I 

Conversion  to  Degrees 

S  P651-0 

Conversion  to  Radians 

P652-0 

Radians  and  Degrees  per  Second 

|  P653-0 

1 

Conversion  to  Degrees  per  Second 

P654-0 

1 

Conversion  to  Radians  per  Second 

i  P655-0 

1 

Radians  and  Semicircles 

|  P656-0 

1 

Conversion  to  Semicircles 

|  P657-0 

1 

Conversion  to  Radians 

|  P658-0 

1 

Radians  and  Semicircles  per  Second 

1  P659-0 

Conversion  to  Semicircles  per  Second 

|  P660-0 

1 

Conversion  to  Radians  per  Second 

j  P661-0 

1 

Degrees  and  Semicircles 

P662-0 

1 

Conversion  to  Semicircles 

J  P663-0 

1 

Conversion  to  Degrees 

P664-0 

1 

Degrees  and  Semicircles  per  Second 

P665-0 

1 

Conversion  to  Semicircles  per  Second 

|  P666-0 

1 

Conversion  to  Degrees  per  Second 

|  P667-0  | 

1 

Seconds  and  Minutes 

j  P668-0  j 

1 

Conversion  to  Minutes 

|  P669-0  1 

Conversion- to  Seconds 

I  P670-0  ! 

Centigrade  and  Fahrenheit 

j  P671-0  | 

1 

Conversion  to  Fahrenheit 

|  P672-0  i 

1 

Conversion  to  Centigrade 

|  P673-0  ! 

1 

Centigrade  and  Kelvin 

i  P674-0 

1 

Conversion  to  Kelvin 

|  P675-0 

1 

Conversion  to~Centigrade 

|  P676-0  j 

1 

Fahrenheit  and  Kelvin 

|  P677-0  | 

1 

Conversion  to  Kelvin 

|  P678-0  | 

Conversion  to  Fahrenheit 

P679-0  ! 

1 

Kilograms  anl  Pounds 

|  P680-0  | 

1 

Conversion  to  Kilograms 

j  P681-0  j 

! 

Conversion  to  Pounds 

j  P682-0  | 
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The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 5. 1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R105. 


3. 3. 6. 5. 1.2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 6. 5. 1.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

All  of  the  packages  contained  in  this  TLCSC  are  generic  packages.  The  types 
defining  the  units  between  which  the  conversions  are  taking  place  have  been 
defined  as  generic  formal  parameters  to  the  individual  packages. 

FORMAL  PARAMETERS: 

^  Each  of  the  units  contained  in  this  part's  LLCSC's  require  one  input  parameter. 

|  ■*  That  parameter  is  of  the  type  from  which  the  conversion  is  to  take  place. 


3. 3. 6. 5. 1.4  LOCAL  DATA 


None. 


3. 3. 6. 5. 1.5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 5. 1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

with  Conversion  Factors; 
package  body  UnIt_Conversions  is 

package  CF  renames  Conversion_Factors; 


—  — package  containing  subroutines  to  convert  Meters  <==>  Feet 


package  body  Meters_and_Feet  is 

function  Conversion  to  Feet  (Input  :  Meters)  return  Feet  is 
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begin 

return  Feet(Input)  *  CF.Feet_per_Meter; 
end  Conversion_to_Feet; 

function  Conversion_to_Meters  (Input  :  Feet)  return  Meters  is 
begin 

return  Meters(Input)  *  CF.Meters_per_Foot; 
end  Conversion_to_Meters; 

end  Meters  and  Feet; 


—  — package  containing  routines  to  convert  Meters/Second  <■■>  Feet/Second 


package  body  Meters_and_Feet_per_Second  is 

function  Conversion_to_Feet_per_Second 

(Input  :  Meters_per_Second)  return  Feet_per_Second  is 

begin 

return  Feet_per  Second (Input)  *  CF.Feet_per_Meter; 
end  Conversion_to_Feet  per_Second; 

function  Conversion_to_Meters_per_Second 

(Input  7  Feet_per_Second)  return  Meters_per_Second  is 

begin 

return  Meters_per_Second( Input)  *  CF.MetersperFoot; 
end  Conversion_to_Meters_per_Second; 

end  Meters_and_Feet_per_Second; 


—  — package  containing  routines  to  convert  Meters/Second**2  <»«>  Feet/Second**2 


package  body  Meters_and_Feet_per_Second_Squared  is 

function  Conversion_to_Feet_per_Second2 

(Input  s  Meters_per_Second_Squared) 
return  Feet_per_Second_Squared  is 

begin 

return  Feet_per_Second_Squared( Input)  *  CF.Feet_per_Meter; 
end  Conversion_to_Feet_per_Second2  ; 

function  Conversion_to_Meters_per_Second2 

(Input  7  Feet_per_Second_Squared) 
return  Meters_per_Second_Squared  is 

begin 

return  Meters_per_Second_Squared(Input)  *  CF.Meters_per_Foot; 
end  Conversion_to_Meters_per_Second2 ; 

end  Meters_and_Feet_per_Second_Squared; 
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—  — package  containing  routines  to  convert  Gees  <■■>  Meters/Second**2 


package  body  Gees_and_Meters_per_Second_Squared  is 

function  Conversion_to_Meters_per_Second2 

(Input  :  Gees)  return-Meters_per_Second_Squared  is 

begin 

return  Meters_per_Second_Squared(Input)  *  CF.Meters_per_Sec2_per_Gee; 
end  Conversion_to_Meters_per_Second2; 

function  Conversion_to_Gees 

(Input  :  Meters_per_Second_Squared)  return  Gees  is 

begin 

return  Gees(Input)  *  CF.Gees_per_Meter_per_Sec2; 
end  Conversion  to_Gees; 

end  Gees_and  Meters  per  Second  Squared; 


—  — package  containing  routines  to  convert  Gees  <— >  Feet/Second**2 


package  body  Gees_and_Feet_per_Second_Squared  is 

function  Conversion_to_Feet_per_Second2 

(Input  :  Gees)  return  Fee t_per_Second_Squared  is 

begin 

return  Feet_per  Second_Squared( Input)  *  CF.Feet_per_Sec2_per_Gee; 
end  Conversion  to_Feet_per_Second2  ; 

function  Conversion_to_Gees 

(Input  :  Feet_per_Second_Squared)  return  Gees  is 

begin 

return  Gees(Input)  *  CF.Gees_per_Foot_per_Sec2; 
end  Conversion_to_Gees; 

end  Gees_and_Feet_per_Second_Squared ; 


—  — package  containing  routines  to  convert  Radians  <»■>  Degrees 


package  body  Radians_and_Degrees  is 

function  Conversion_to_Degrees  (Input  :  Radians)  return  Degrees  is 
begin 

return  Degrees(Input)  *  CF.Degrees_per_Radian; 
end  Conversion_to_Degrees  ; 

function  Conversion_to_Radians  (Input  :  Degrees)  return  Radians  is 
begin 

return  Radians(Input)  *  CF.Radians_per_Degree; 
end  Conversion  to  Radians  ; 
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end  Radians_and  Degrees; 


—  — package  containing  routines  to  convert  Radians/Second  <==>  Degrees/Second 


package  body  Radians_and_Degrees_per_Second  is 

function  Conversion_to_Degrees_per_Second 
(Input  :  Radians_per_Sicond) 
return  Degrees_per_Second  is 

begin 

return  Degrees_per_Second( Input)  *  CF.Degrees_per_Radian; 

end  Conversion_to_Degrees_per_Second; 

f unc  t  ion  Conversion_to_Radians_per_Second 
(Input  :  Degrees_per_Second) 
return  Radians_per_Second  is 

begin 

return  Radians_per  Second(lnput)  *  CF.Radians_per_Degree; 

end  Conversion_to_RadTans_per_Second; 

end  Radians_and_Degrees_per_Second ; 


—  — package  containing  routines  to  convert  Radians  <■«>  Semicircles 


package  body  Radians_and_Semicircles  is 

function  Conversion_to_Semicircles  (Input  s  Radians)  return  Semicircles  is 
begin 

return  Semicircles (Input)  *  CF. Semi_Circles_per_Radian; 
end  Conversion_to_Semicircles  ; 

function  Conversion_to_Radians  (Input  :  Semicircles)  return  Radians  is 
begin 

return  Radians  (Input)  *  CF.Radians_per_Semi_Circle; 
end  Conversion_to_Radians  ; 

end  Radians  and  Semicircles; 


—  — package  contain  ng  routines  to  convert 

—  — Radians/Second  <==>  Semicircles/Second 


package  body  Radians_and_Semicircles_per_Second  is 

function  Conversion_to_Semicircles_per  Second 

(Input  :  Radians_per_Secon3)  return  Semicircles_per_Second  is 

begin 

return  Semicircles_per_Second(Input)  *  CF.Semi_Circles_per_Radian; 
end  Conversion_to_Semici  rcles_per_Second  ; 
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function  Conversion_to_Radians_per_Second 

(Input  7  Semicircles_per_Second)  return  Radians_per_Second  is 

begin 

return  Radians_per  Second(Input)  *  CF.Radians_per_Semi_Circle; 
end  Conversion_to_RadIans_per_Second; 

end  Radians_and_Semicircles_per_Second ; 


—  — package  containing  routines  to  convert  Degrees  <«>  Semicircles 


package  body  Degrees_and_Semicircles  is 

function  Conversion_to_Semicircles  (Input  :  Degrees)  return  Semicircles  is 
begin 

return  Semicircles(Input)  *  CF. Semi_Circles_per_Degree; 
end  Conversion_to_Semicircles  ; 

function  Conversion_to_Degrees  (Input  :  Semicircles)  return  Degrees  is 
begin 

return  Degrees  (Input)  *  CF.Degrees_per_Semi_Circle; 
end  Conversion_to_Degrees  ; 

end  Degrees  and  Semicircles; 


—  — package  containing  routines  to  convert 

—  — Degrees /Second  <-«>  Semicircles/Second 


package  body  Degrees_and_Semicircles_per_Second  is 

function  Conversion_to_Semicircles_per  Second 
(Input  T  Degrees_per_Secon3) 
return  Semicircles_per_Second  is 

begin 

return  Semicircles  per_Second( Input)  *  CF.  Semi_Circles_per_Degree; 
end  Conversion  to_SemTcircles_per_Second  ; 

function  Conversion_to_Degrees_per_Second 

(Input  T  Semicircles_per_Second) 
return  Degrees_per_Second  is 

begin 

return  Degrees_per_Second(Input)  *  CF.Degrees_per_Semi_Circle; 
end  Conversion_to  Degrees_per_Second; 

end  Degrees_and_Semicircles_per_Second ; 


-  — package  containing  routines  to  convert  Seconds  <«=>  Minutes 
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package  body  Seconds_and_Minutes  is 

function  Conversion_to_Minutes  (Input  :  Seconds)  return  Minutes  is 
begin 

return  Minutes(Input)  *  CF.Minutes_per_Second; 
end  Conversion_to_Minutes  ; 

function  Conversion_to_Seconds  (Input  :  Minutes)  return  Seconds  is 
begin 

return  Seconds (Input)  *  CF.Seconds_per_Minute; 
end  Conversion_to_Seconds  ; 

end  Seconds  and  Minutes; 


—  — package  containing  routines  to  convert  Centigrade  <«■>  Fahrenheit 


package  body  Centigrade_and_Fahrenheit  is 

function  Conversion  to  Fahrenheit 

(Input  7  Centigrade)  return  Fahrenheit  is 

begin 

return  Fahrenheit  (Input)  *  CF.Degrees_Fahrenheit_per_Centigrade  + 
CF.Centigrade  to  FahrenheitBias; 
end  Conversion_to_FahrenheIt  ; 

f unc t ion  Convers iontoCent igrade 

(Input  :  Fahrenheit)  return  Centigrade  is 

begin 

return  Centigrade(Input  +  CF. Fahrenheit  to_Centigrade_Uias)  * 

CF .  Degrees_Cen  t  igrade_per_FahrenKei7 ; 
end  Conversion_to_Centigrade; 

end  Centigrade_and_Fahrenheit; 


—  — package  containing  routines  to  convert  Centigrade  <-»>  Kelvin 


package  body  Centigrade_and_Keivin  is 

function  Conversion_to_Kelvin  (Input  :  Centigrade)  return  Kelvin  is 
begin 

return  Kelvin(Input  +  CF.Centigrade_to_Kelvin_Bias) ; 
end  Conversion_to_Kelvin  ; 

function  Conversion_to_Centigrade  (Input  :  Kelvin)  return  Centigrade  is 
begin 

return  Centigrade(Input  +  CF.Kelvin_to_Centigrade_Bias) ; 
end  Conversion_to_Centigrade  ; 

end  Centigrade_and_Kelvin; 
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—  — package  containing  routines  to  convert  Fahrenheit  <«>  Kelvin 


package  body  Fahrenheit_and_Kelvin  is 

function  Conversion_to_Kelvin  (Input  :  Fahrenheit)  return  Kelvin  is 
begin 

return  Kelvin(Input  +  CF. Fahrenheit  to_Kelvin_Bias)  * 

CF. Degrees  Kelvin_per_FahrenHeiT  ; 
end  Conversion_to_KeIvin  ; 

function  Conversion_to_Fahrenheit  (Input  :  Kelvin)  return  Fahrenheit  is 
begin 

return  Fahrenheit (Input)  *  CF.Degrees_Fahrenheit  per_Kelvin  + 

CF. Kelvin_to_Fahrenhei t_Bias ; 
end  Conversion_to_Fahrenheit  ; 

end  Fahrenheit  and  Kelvin; 


—  — package  containing  routines  to  convert  Kilograms  <»>  Pounds 


package  body  Kilograms_and_Pounds  is 

function  Conversion_to_Pounds  (Input  :  Kilograms)  return  Pounds  is 
begin 

return  Pounds(Input)  *  CF.Pounds_per_Kilogram; 
end  Conversion_to_Pounds  ; 

function  Conversion_to_Kilograms  (Input  s  Pounds)  return  Kilograms  is 
begin 

return  Kilograms (Input)  *  CF.Kilograms_per_Pound; 
end  Conversion_to_Kilograms  ; 

end  Kilograms_and_Pounds; 


—  — package  containing  routines  to  convert 

—  — Kilograms /Me ter** 2  <«>  Pounds/Foot**2 


package  body  Kilograms_per_Meter_Squared_and_Pounds_per_Foot_Squared  is 

function  Conversion_to_Pounds_per_Foot2 

(Input  7  Kilogrami_per_Meter_Squared) 
return  Pounds_per_Foot_Squared  is 

begin 

return  Pounds_per_Foot_Squared(Input)  * 

CF. Pounds_per_Foot2  per  Kilograms_per_Meter2; 
end  Conversion_to_Pounds_per_Foot 2 ; 

function  Conversion_to_Kilograms_per_Meter2 

(Input  :  Pounds_per_Foot_Squared) 
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return  Kilograms_per_Meter_Squared  is 

begin 

return  Kilograms_per_Meter_Squared(Input)  * 

CF .  Ki  lograms_per_Me  ter2_per  Pounds_per_Foo t-2 ; 
end  Conversion_to_Kilograms  per_Meter2; 

end  Ki lograms_per_Me  ter_Squared_and_Pounds_per_Foo t_Squared ; 

end  Unit  Conversions; 


3. 3. 6. 5. 1.7  UTILIZATION  OF  OTHER  ELEMENTS 

The  following  library  units  are  with'd  by  this  part: 

1.  Conversion_Factors  (CF) 

UTILIZATION  OF  EXTERNAL  ELEMENTS: 

Data  objects: 

All  of  the  conversion  factors  required  by  the  units  nested  in  this  part  are 
contained  in  the  Conversion  Factors  TLCSC. 


3. 3. 6. 5. 1.8  LIMITATIONS 
None. 


3. 3. 6. 5. 1.9  LLCSC  DESIGN 


None. 


3.3.6.5.1.10  UNIT  DESIGN 


None. 
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with  Conversion  Factors; 
package  body  UnIt_Conversions  is 

package  Cf  renames  Conversion_Factors; 

pragma  PAGE; 

—  —  package  containing  subroutines  to  convert  Meters  <  =  =  >  Feel 


package  body  Meters_And_Feet  is 

function  Conversion_To_Feet  (Input  :  Meters)  return  Feet  is 
begin 

return  Feet(Input)  *  Cf .Feet_Per_Meter ; 
end  Conversion_To_Feet; 

function  Conversion_To_Meters  (Input  :  Feet)  return  Meters  is 
begin 

return  Meters(Input)  *  Cf .Meters_Per_Foot; 
end  Conversion_To_Meters; 

end  Meters  And  Feet; 


—  — package  contorting  routines  to  convert  Meiers/Second  <««>  Feet/Second 


package  body  Meters_And_Feet_Per_Second  is 

function  Convers i on  _To_Fee t_Per_Second 

(Input  7  Meters_Per_Second)  return  Feet_Per_Second  is 

begin 

return  Fee t_Per_Second( Input)  *  Cf .Feet_Per_Meter; 
end  Convers ion_To_Feet_Per_Second ; 

f unc t ion  Con ve r s i on_To_Me ters_Per_Second 

(Input  ;  Feet_Per_Second)  return  Meters_Per_Second  is 

begin 

return  Me ters_Per_Second( Input)  *  Cf .Meters_Per_Foot; 
end  Conversion_To_Meters_Per_Second; 

end  Meters_And_Feet_Per_Second; 

pragma  PAGE; 


—  — package  containing  routines  to  convert  Meters/Second**2  <  =  =  >  Feet/Second**2 


package  body  Meters_And_Feet_Per_Second_Squared  is 

function  Conversion_To_Feet_Per_Second2 

(Input  :  Meters~Per_Second_Squared) 
return  Feet_Per~Second_Squared  is 

begin 

return  Feet  Per  Second  Squared(Input)  *  Cf.Feet  Per  Meter; 
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end  Conversion_To_Feet_Per_Second2  ; 

function  Conversion_To_Meters_Per_Second2 

.  (Input  :  Feet_Per~Second_Squared) 
return  Meters_Per_Second_Squared  is 

begin 

return  Meters_Per_Second_Squared(Input)  *  Cf .Meters_Per_Foot; 
end  Convers  ion_To_Meters_Per_Second2; 

end  Meters_And_Feet_Per_Second_Squared ; 


—  — package  containing  routines  to  convert  Gees  <  =  =  >  Meters /Second**2 


package  body  Gees_And_Meters_Per_Second_Squared  is 

function  Conversion_To_Meters_Per_Second2 

(Input  :  Gees)  retum-Meters_Per_Second_Squared  is 

begin 

return  Meters_Per_Second_Squared(Input)  *  Cf .Meters_Per_Sec2_Per_Gee; 
end  Conversion_To_Meters_Per_Second2; 

function  Conversion_To_Gees 

(Input  :  MetersPerSecondSquared)  return  Gees  is 

begin 

return  Gees (Input)  *  Cf  .Gees_Per_Meter_Per_Sec2; 
end  Conversion_To_Gees; 

end  Gees_And_Meters_Per_  Second  Squared  ; 

pragma  PAGE; 


—  — package  containing  routines  to  convert  Gees  <  =  =  >  Feet/Second**2 


package  body  Gees_And_Feet_*'er_Second_Squared  is 

function  Convers i on_To_Fee t_Pe r_Second 2 

(Input  s  Gees)  return  Feet_Per_Second_Squared  is 

begin 

return  Feet_Per_Second_Squared(Input)  *  Cf  .Feet_Per_Sec2_Per_Gee; 
end  Convers  ion_To_Feet_Per_Second2  ; 

function  Convers ion_To_Gees 

(Input  :  Feet_Per_Second_Squared)  return  Gees  is 

begin 

return  Gees(Input)  *  Cf .Gees_Per_Foot_Per_Sec2; 
end  Conversion_To_Gees; 

end  Gees_And_Feet_Per_Second_Squared; 


pragma  PAGE; 

—  —  package  containing  routines  to  convert  Radians  <  =  =  >  Degrees 
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package  body  Radians_And_Degrees  is 

function  Conversion_To_Degrees  (Input  :  Radians)  return  Degrees  is 
begin 

return  Degrees(Input)  *  Cf .Degrees_Per_Radian; 
end  Conversion_To_Degrees  ; 

function  Conversion_To_Radians  (Input  s  Degrees)  return  Radians  is 
begin 

return  Radians (Input)  *  Cf .Radians_Per_Degree; 
end  Conversion_To_Radians  ; 

end  Radians_And_Degrees; 


—  —  package  containing  routines  to  convert  Radians /Second  <  =  =  >  Degrees/Second 


package  body  Radians_And_Degrees_Per_Second  is 

function  Conver s i on_To_Degrees_Per_Second 
(Input  :  Radians_Per_Second) 
return  Degrees_Per_Second  is 

begin 

return  Degrees_Per_Second( Input)  *  Cf .Degrees_Per_Radian; 

end  Convers  i  on_To_Degrees^Per_Second  j 

function  Convers i on_To_Radians_Per_Second 
(Input  s  Degrees  Per  Second ) 
return  Radians_Per_Second  is 

begin 

return  Radians_Per  Second(Input)  *  Cf .Radians_Per_Degree; 

end  Conversion_To_RadIans_Per_Second; 

end  Rad  ians_And_Degr ees_Pe  r_Second ; 
pragma  PAGE; 


—  — package  containing  routines  to  convert  Radians  <  =  =  >  Semicircles 


package  body  Radians_And_Semicircles  is 

function  Conversion_To_Semicircles  (Input  :  Radians)  return  Semicircles  is 
begin 

return  Semicircles(Input)  *  Cf . Semi_Circles_Per_Radian; 
end  Conversion_To_Semicircles  ; 

function  Conversion_To_Radians  (Input  :  Semicircles)  return  Radians  is 
begin 

return  Radians(Input)  *  Cf .Radians_Per_Semi_Circle; 
end  Conversion_To_Radians  ; 

end  Radians  And  Semicircles; 


I 
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—  — package  containing  routines  to  convert 

—  — Radians /Second  <  =  =  >  Semicircles/Second 


package  body  Radians_And_Semicircles_Per_Second  is 

function  Conversion_To_Semicircles_Per  Second 

(Input  :  Radians_Per_Secon<I)  return  Semicircles_Per_Second  is 

begin 

return  Semicircles  Per_Second(Input)  *  Cf  .Semi_Circles_Per_Radian; 
end  Conversion_To_SemIcircles_Per_Second  ; 

function  Conversion_To_Radians_Per_Second 

(Input  s  Semicircles_Per_Second)  return  Radians_Per_Second  is 

begin 

return  Radians_Per  Second(Input)  *  Cf .Radians_Per_Semi_Circle; 
end  Conversion_To_RadIans_Per_Second; 

end  Radians_And_Semicircles_Per_Second; 

pragma  PAGE; 


—  — package  containing  routines  to  convert  Degrees  <  =  =  >  Semicircles 


package  body  Degrees_And_Semicircles  is 

function  Conversion_To_Semicircles  (Input  :  Degrees)  return  Semicircles  is 
begin 

return  Semicircles(Input)  *  Cf  .Semi_Circles_Per_Degree; 
end  Conversion_To_Semicircles  ; 

function  Conversion_To_ Degrees  (Input  :  Semicircles)  return  Degrees  is 
begin 

return  Degrees (Input)  *  Cf .Degrees_Per_Semi_Circle; 
end  Conversion_To_Degrees  ; 

end  Degrees_And_Semi circles; 


—  — package  containing  routines  to  convert 

—  —  Degrees /Second  <  =  =  >  Semicircles/Second 


package  body  Degrees_And_Semicircles_Per_Second  is 

function  Conversion_To_Semicircles_Per  Second 
(Input  s  Degrees_Per_Secon3) 
return  Semicircles_Per_Second  is 

begin 

return  Semicircles  Per_Second(Input)  *  Cf .  Semi  _Circles_Per_Degree; 
end  Conversion_To_SemIcircles_Per_Second  ; 

function  Conve rs i on_To_Degrees_Per_Second 
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(Input  :  Semicircles_Per_Second) 
return  Degrees_Per_Second~is 

begin 

return  Degrees_Per  Second(Input)  *  Cf .Degrees_Per_Semi  Circle; 
end  Conversion_To_Degrees_Per_Second; 

end  Degrees_And_Semicircles_Per_Second; 

pragma  PAGE; 


—  —  package  containing  routines  to  convert  Seconds  <  =  =  >  Minutes 


package  body  Seconds_And_Minutes  is 

function  Conversion_To_Minutes  (Input  :  Seconds)  return  Minutes  is 
begin 

return  Minutes(Input)  *  Cf .Minutes_Per_Second; 
end  Conversion_To_Minutes  ; 

function  Conversion_To_Seconds  (Input  :  Minutes)  return  Seconds  is 
begin 

return  Seconds  (Input)  *  Cf.  Seconds  I?er_Minute; 
end  Convers ion_To_Seconds  ; 

end  Seconds_And_Minutes; 

ou 

|  pragma  PAGE; 


—  —  package  containing  routines  to  convert  Centigrade  <  =  ■  >  Fahrenheit 


package  body  Centigrade_And_Fahrenheit  is 

function  Conversion_To_Fahrenheit 

(Input  :  Centigrade)  return  Fahrenheit  is 

begin 

return  Fahrenheit  (Input)  *  Cf  .Degrees_Fahrenheit_Per_Centigrade  + 
Cf  .Centigrade_To  Fahrenheit_Bias; 
end  Convers ion_To_FahrenheI t  ; 

function  Conversion_To_Centigrade 

(Input  :  Fahrenheit)  return  Centigrade  is 

begin 

return  Centigrade(Input  +  Cf  .Fahrenheit  To_Centigrade_Bias)  * 

Cf .  Degrees_Cen  t  igrade_Per_FahrenKei  t ; 
end  Convers ion_To_Centigrade; 

end  Ct-n t  igrade_And_Fahrenhe i  t ; 


—  — package  coittaining  routines  to  convert  Centigrade  <  =  =  >  Kelvin 


package  body  Centigrade_And_Kelvin  is 
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function  Conversion_To_Kelvin  (Input  :  Centigrade)  return  Kelvin  is 
begin 

return  Kelvin(Input  +  Cf .Centigrade_To_Kelvin_Bias) ; 
end  Conversion_To_Kelvin  ; 

function  Conversion_To_Centigrade  (Input  :  Kelvin)  return  Centigrade  is 
begin 

return  Centigrade(Input  +  Cf .Kelvin_To_Centigrade_Bias) ; 
end  Conversion_To_Centigrade  ; 

end  Centigrade_And_Kelvin; 

pragma  PAGE; 


—  —  package  containing  routines  to  convert  Fahrenheit  <  =  =  >  Kelvin 


package  body  Fahrenheit_And  Kelvin  is 

function  Conversion_To_Kelvin  (Input  :  Fahrenheit)  return  Kelvin  is 
begin 

return  Kelvin( Input  +  Cf .Fahrenheit  To_Kelvin_Bias)  * 

Cf. Degrees  Kelvin_Per_FahrenKeiT  ; 
end  Conversion_To_KeIvin  ; 

function  ConversionToFahrenheit  (Input  s  Kelvin)  return  Fahrenheit  is 
begin 

return  Fahrenheit  (Input)  *  Cf  .DegreesFahrenheitPerKelvin  + 

Cf .  Kelvin_To_Fahrenhei  t_Bias ; 
end  Conversion_To_Fahrenheit  ; 

end  Fahrenheit_And_Kelvin; 

pragma  PAGE; 


—  —  package  containing  routines  to  convert  Kilograms  <  =  =  >  Pounds 


package  body  Kilograms_And_Pounds  is 

function  Conversion_To_Pounds  (Input  :  Kilograms)  return  Pounds  is 
begin 

return  Pounds(Input)  *  Cf . Pounds_Per_Kilogram; 
end  Conversion_To_Pounds  ; 

function  Conversion_To_Kilograms  (Input  :  Pounds)  return  Kilograms  is 
begin 

return  Kilograms(Input)  *  Cf .Kilograms_Per_Pound; 
end  Conversion_To_Kilograms  ; 

end  Kilograms_Ar  ‘  Pounds; 


—  — package  containing  routines  to  convert  \ 

—  — Kilograms/Meier* *2  <=  =  >  Pounds/Foot**2 
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package  body  Kilograms_Per_Meter_Squared_And_Pounds_Per_Foot_Squared  is 

function  Conversion_To  Pounds_Per_Foot2 

(Input  :  Kllograms_Per_Meter_Squared) 
return  Pounds_Per_Foot_Squared  is 

begin 

return  Pounds_Per_Foot_Squared( Input)  * 

Cf . Pounds_Per_Foot2_Per  Kilograms_Per_Meter2; 

end  Conversion_To_Pounds_Per_FootJ; 

function  Conversion_To_Kilograms  Per_Meter2 
(Input  :  Pounds_Per_Foot~Squared) 
return  Kilograms_Per_Meter_Squared  is 

begin 

return  Kilograms_Per_Meter_Squared(Input)  * 

Cf .Kilograms_Per_Meter2_Per  Pounds_Per_Foot2; 

end  Conversion_To_Kilograms_Per_MeterS; 

end  Kilograms_Per_Meter_Squared_And_Pounds_Per_Foot_Squared; 
end  Unit  Conversions; 


M 

» 


t 
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3. 3. 6. 5. 2  EXTERNAL_FORM_CONVERSION_TWOS_COMPLEMENT  (PACKAGE  BODY)  TLCSC  P852 
(CATALOG  #P684-0) 

This  generic  package  performs  scaling  operations  on  input  values.  It  is  able 
to  convert  two's  complement  engineering  units  to  floating  point  representations 
and  to  convert  floating  point  to  engineering  units. 

NOTE:  The  scaled  values,  while  representing  two's  complement  values,  are 
themselves  one's  complement  values  and,  therefore,  are  always  positive. 

The  calculations  to  go  from  a  scaled  integer  value  to  an  unsealed  floating 
point  value  are  as  follows: 

unscaled_output  :■  unscaled_bias  + 

((scaled  value  -  scale_factor_2)  * 
unscale3_range  /  scale_factor_l) 

and  the  calculations  to  go  from  an  unsealed  floating  point  value  to  a  scaled 
integer  are  as  follows: 

scaled_output  :■  (unscaled_value  -  unscaled_bias)  * 

(scale_factor_l  /  unscaled_range) 

+  scale  factor  2 


where: 

scalefactorl  :■  2  **  initialengineeringunitsbits  -  1 
(represents  the  value  range  vhich  may  be  assumed  by  the 
scaled,  integer  values) 

scale_factor_2  :«  2  **  (initial_engineering_units  bits  -  1) 
(represents  the  scaled  bias;  i.e.,  the  amount  By  vhich 
the  minumum  scaled,  integer  value  is  negatively  offset 
from  0) 

unscaled_bias  :«  [ (unscaledjnax  -  unscaledjnin  +  lsb_value) 

/  2]  +  unsealed  min 

(represents  the  offset  from  0  ol  the  median  unsealed  value) 

unscaled_range  :*  unscaled_max  -  unsealed  min 

(represents  the  value  range  which  may  Be  assumed  by  the 
unsealed,  floating  point  values) 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 5. 2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R106. 


3. 3. 6. 5. 2. 2  LOCAL  ENTITIES  DESIGN 


None. 
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3. 3. 6. 5. 2. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

The  following  generic  parameters  were  previously  declared  when  this  was 
specified. 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name  |  Type  |  Description  | 


|  Scaledlntegers  |  integer  type  |  Defines  scaled  variables  stored  in  | 

j  j  engineering  units 

|  Unscaled_Floats  j  floating  point  type  j  Defines  unsealed  variables  stored  j 
:  j  j  in  floating  point  format  j 


Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part: 


|  Name 

1  Type 

|  Description 

|  Bits_In_Unscaled_ 
j  Values 

|  POSITIVE 

1 

|  Number  of  significant  bits  in  the 
engineering  units  representation 

j  Initial  Min 

|  Unsealed 

j  Minimum  value  vhich  the  unsealed 

j  Unsealed  Value 

1  Floats 

j  values  may  assume 

|  Initial  Max 

j  Unsealed 

j  Maximum  value  which  the  unsealed 

j  Unscaled_Value 

j  Floats 

1  values  may  assume 

Subprograms: 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part : 


,  Name 

1  Type 

1  »'★" 

|  function 

| 

1 

1 

|  function 

i 

M  /  ft 

|  function 

ft  /  ff 

1  function 

|  Description 


I 


Multiplication  operator  defining  the  operation: 

Scaled_Integers  *  Unsealed  Floats  ■>  Unscaled_Floats 
Multiplication  operator  defining  the  operation: 

Unsealed  Floats  *  Unscaled_Floats  *>  Scaled_Integers 
Division  operator  defining  the  operation: 

Unsealed  Floats  /  Scaled_Integers  =>  Unscaled_Floats 
Division  operator  defining  the  operation: 

Unsealed  Floats  /  Unsealed  Floats  =>  Scaled  Integers 


r‘V 
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3. 3. 6. 5. 2. 4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


1 

Name 

1  Type 

Value 

Description 

1 

1 

One  Over  LSB 

|  Unsealed 

1/ 

Inverse  of  the  value  of  the 

1 

1 

Value 

Floats 

LSB  Value 

least  significant  bit 

1 

1 

Scaled  Bias 

|  Scaled 

2**(Bits 

Amount  by  which  the  median 

1 

Integers 

in  Scaled 

scaled  value  is  negatively 

1 

1 

Values-1) 

offset  from  0 

1 

1 

Unsealed  Bias 

|  Unsealed 

Initial 

Amount  by  which  the  median 

1 

1 

j  Floats 

Unsealed 

unsealed  value  is  negatively 

1 

1 

1 

Bias 

offset  from  0 

1 

3. 3. 6. 5. 2. 5  PROCESS  CONTROL 
Not  applicable. 

3. 3. 6. 5. 2. 6  PROCESSING 

La. 

)  The  following  describes  the  processing  performed  by  this  part: 
package  body  External_Form_Conversion_Tvos_Complement  is 

—  — local  variables- 

One_Over_LSB_Value  :  constant  Unscaled_Floats  :«  1.0  /  LSB_Value; 

Scaled_Bias  :  constant  Scaled_Integers  :*  2**(Bits_in_Scaled_Values-l) ; 
Unscaled_Bias  :  constant  Unscaled_Floats 

((Max_Unscaled_Value  -  Min_Unscaled_Value  + 
LSB_Value)  /  2  )  + 

Min_Unscaled_Value ; 

begin 

—  — make  sure  min  <  max 

if  Initial_Min_Unscaled_Value  >  Initial  Max_Unscaled_Value  then 
raise  NUMERIC_ERR0R ; 
end  if; 

end  External_Form_Conversion  Twos_Complement ; 
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3. 3. 6. 5. 2. 7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  top  level  component: 

Data  types: 

The  following  table  describes  the  data  types  defined  in  the  package 
specification  of  the  TLCSC: 


1 

Name 

|  Range 

Description  | 

1 

Positive 

|  0  .. 

Subtype  of  generic  formal  type  Scaled 

1 

Scaled 

i  Max  Scaled 

Integers;  used  to  ensure  the  values  of  the 

1 

Integers 

;  Value 

scaled  input  parameters  are  within  the 

1 

i 

allowable  range 

1 

Valid 

1  Min  Unsealed 

Subtype  of  generic  formal  type  Unsealed 

1 

Unsealed 

j  Value  . . 

Floats;  used  to  ensure  the  values  of  tKe 

Floats 

Max  Unsealed 

scaled  input  parameters  are  within  the 

i 

j  Value 

allowable  range 

Data  objects: 

The  following  table  describes  the  da'ta  objects  which  were  defined  in  the 
package  specification  of  the  TLCSC: 


|  Name  |  Type  |  Value  |  Description 


Max_ 

Scaled 

Value 

Value_ 

Range 


Scaled_ 

Integers 

Unscaled_ 

Floats 


LSB 

Value 


Unsealed 

Floats 


Min_ 

Unsealed 

Value 

Max_ 

Unsealed 

Value 


Unsealed 

Floats 

Unsealed 

Floats 


2**Bits_in 
Scaled_VaIues 
-  1 

Initial_Max_ 
Unscaled_Value  - 
Initial  Min 
Unscale?_VaTue 
Initial  Value_ 
Range  7  Max_ 
Scaled_Value 
Initial_Min_ 
Unsealed  Value 


Maximum  scaled  value 


Range  of  valves  which  may  be 
assumed  by  the  unsealed 
values 

Value  of  the  least  significant 
bit  in  the  scaled  values 

Minimum  unsealed  value 


Initial_Max_ 
Unsealed  Value 


Maximum  unsealed  value 


3. 3. 6. 5. 2. 8  LIMITATIONS 

This  part  raises  a  NUMERIC  ERROR  exception  if  Ini tial_Min_Unscaled_Value  is 
greater  than  Initial_Max_Unscaled_Value. 
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3. 3. 6. 5. 2. 9  LLCSC  DESIGN 


None. 


3.3.6.5.2.10  UNIT  DESIGN 

3.3.6.5.2.10.1  SCALE  (FUNCTION  BODY)  UNIT  DESIGN  (CATALOG  #P685-0) 

This  function  accepts  a  floating  point  value  and  performs  a  scaling  operation 
on  it  to  convert  it  to  engineering  units  representation. 

NOTE:  The  scaled  values,  while  representing  two's  complement  values,  are 
themselves  one's  complement  values  and,  therefore,  are  always  positive. 

The  calculations  to  go  from  an  unsealed  floating  point  value  to  a  scaled 
integer  are  as  follows: 

scaled_output  :«  (unscaled_value  -  unscaled_bias)  * 

(scale_factor_l  /  unscaled_range)  +  scale_factor_2 


where: 

scale_factor_l  :«  2  **  ini tial_engineering_unit$  bits  -  1 
(represents  the  value  range  vhich  may  be  assumed  by  the 
scaled,  integer  values) 

scale_factor_2  2  **  (initial_engineering_units  bits  -  1) 
(represents  the  scaled  bias;  i.e.,  the  amount  Ey  vhich 
the  minumum  scaled,  integer  value  is  negatively  offset 
from  0) 

unscaled_bias  :■  initial_bias 

(represents  the  amount  by  which  the  minimum  unsealed, 
floating  point  value  is  negatively  offset  from  0) 

unscaled_range  :«  initial_range 

(represents  the  value  range  which  may  be  assumed  by  the 
unsealed,  floating  point  values;  i.e.,  equals  the 
maximum  unsealed  value  -  minumum  unsealed  value) 


3.3.6.5.2.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R106. 


3.3.6.5.2.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.5.2.10.1.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 
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The  following 

table  describes  this 

part's  formal  parameters: 

|  Name  | 

Type 

Mode 

Description 

1 

|  Unscaled_  | 

|  Value  i 

1  1 

Valid_ 

Unsealed 

Floats 

In 

Floating  point  value  which  is  to 
scaled  so  it  may  be  represented 
integer  format 

be  | 

in  an  i 

1 

3.3.6.5.2.10.1.4  LOCAL  DATA 


None. 


3.3.6.5.2.10.1.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.5.2.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Scale  (UnscaledValue  :  Valid  Unsealed  Floats) 
return  Positive_Scaled_fntegers  Is 

Answer  :  Scal'ed_Integers; 

begin 

Answer  :«=  (UnscaledValue  -  UnscaledBias)  *  One_Over_LSB_Value  + 
Scaled  Bias; 
return  Answer; 

end  Scale; 


3.3.6.5.2.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  as  generic  formal  subroutines  to  the  External_Form_- 
Conversion  Twos  Complement  package: 
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|  Name 

1  Type 

|  Description  | 

|  "*» 

1 

|  function 

1 

|  Multiplication  operator  defining  the  operation:  | 

j  Unsealed  Floats  *  Unsealed  Floats  =>  Scaled_Integers  j 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  the  External_Form_Conversion_Twos_Complement 
package : 


|  Name  |  Range  |  Description 


Positive_ 

Scaled_ 

Integers 


0  .. 

MaxScaled 

Value 


Valid_ 

Unsealed 

Floats 


Min  Unscaled_ 
Value  . . 
Max_Unscaled 
Value 


Subtype  of  generic  formal  type  Scaled_ 
Integers;  used  to  ensure  the  values  of  the 
scaled  input  parameters  are  within  the 
allowable  range 

Subtype  of  generic  formal  type  Unsealed 
Floats;  used  to  ensure  the  values  of  tKe 
scaled  input  parameters  are  within  the 
allowable  range 


Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  the  External_Form_Conversion_Twos_Complement  package: 


|  Name 

1  Type 

1 

Value 

Description 

1 

|  One  Over  LSB 

|  Unsealed 

1 

1/ 

Inverse  of  the  value  of  the 

1 

1  Value 

!  Floats 

LSB  Value 

least  significant  bit 

1 

j  Scaled  Bias 

j  Scaled 

1 

2**<Bits 

Amount  by  which  the  median 

1 

j  Integers 

1 

1 

in  Scaled_ 
Values- 1) 

scaled  value  is  negatively 
offset  from  0 

1 

j  Unsealed  Bias 

|  Unsealed 

Initial 

Amount  by  which  the  median 

Floats 

1 

1 

Unscaled_ 

Bias 

unsealed  value  negatively 
offset  from  0 

1 

1 

3.3.6.5.2.10.1.8  LIMITATIONS 


None. 


3.3.6.5.2.10.2  UNSCALE  UNIT  DESIGN  (CATALOG  #P686-0) 

This  function  accepts  a  value  in  engineering  units  representation  and  perform 
an  unsealing  operation  on  it  to  convert  it  to  a  floating  point  representation. 
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NOTE:  The  scaled  values,  while  representing  two's  complement  values,  are 
themselves  one's  complement  values  and,  therefore,  are  always  positive. 

The  calculations  to  go  from  a  scaled  integer  value  to  an  unsealed  floating 
point  value  are  as  follows: 

unscaled_output  :=  unscaled_bias  + 

((scaled  value  -  scale_factor_2)  * 
unscale<J_range  / 
scale  factor  1) 


where: 

scale_factor  1  :*  2  **  initial_engineering_units_bits  -  1 
(represents  the  value  range~which  may  be  assumed  by  the 
scaled,  integer  values) 

scale_factor_2  :*  2  **  (initial_engineering_units  bits  -  1) 
(represents  the  scaled  bias;  i.e.,  the  amount  By  which 
the  minumum  scaled,  integer  value  is  negatively  offset 
from  0) 

unscaled_bias  initial_bias 

(represents  the  amount  by  which  the  minimum  unsealed, 
floating  point  value  is  negatively  offset  from  0) 

unscaled_range  :«  initial_range 

(represents  the  value  range  which  may  be  assumed  by  the 
unsealed,  floating  point  values;  i.e.,  equals  the 
maximum  unsealed  value  -  minumum  unsealed  value) 


3.3.6.5.2.10.2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R106. 


3.3.6.5.2.10.2.2  LOCAL  ENTITIES  DESIGN 
Subprograms : 

This  package  body  contains  code  which  is  executed  when  the  part  is  elaborated. 
This  code  checks  to  ensure  that  Initial_Min  Unscaled_Value  >  Initial_Max_- 
Unscaled_Value.  If  it  is  not,  a  NUMERIC_ERR0R  exception  is  raised. 


3.3.6.5.2.10.2.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


CAMP  Software  Detailed  Design  Document 


Page  1217 


|  Name 

|  Type  |  Mode 

|  Description 

1 

|  Scaled 

|  Scaled  |  In 

|  Integer  scaled 

value  for  which  an 

unsealed,  | 

j  Value 

j  Integers  | 

j  floating  point 

representation  is 

desired  j 

3.3.6.5.2.10.2.4  LOCAL  DATA 
Data  objects: 

The  following  tables  describes  the  objects  maintained  by  this  part: 


|  Name 

Type 

Description  | 

|  Answer 

Scaled  Integers 

Value  being  calculated  and  returned  | 

3.3.6.5.2.10.2.5  FROCESS  CONTROL 


Not  applicable. 


3.3.6.5.2.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Unscale  (Scaled_Value  :  Positive_Scaled_Intiegers) 
return  Valid _Unscaled_Floats  is 

Answer  :  Unscaled_Floats; 

begin 

Answer  :=  Unscaled_Bias  +  oaled_Value  -  Scaled_Bias)  *  LSB_Value; 
return  Answer; 

end  Unscale; 


3.3.6.5.2.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  as  generic  formal  subroutines  to  the  External_Form_- 
Conversion_Twos_Complemen t  package : 
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|  Name 

I  Type 

|  Description  | 

|  »*» 

1 

|  function 

1 

|  Multiplication  operator  defining  the  operation:  | 

j  Scaled_Integers  *  Unscaled_Floats  =>  Unsealed  Floats  | 

Data  types: 

The  following  table  summarizes  the  types  required  by  this  part  and  defined  in 
the  package  specification  of  the  External_Form_Conversion_Twos_Complement 
package : 


|  Name  |  Range  |  Description 


Posit ive_ 
Scaled_ 
Integers 

Valid_ 

Unsealed 

Floats 


0  .. 

Max_Scaled_ 

Value 

Min  Unscaled_ 
Value  . . 
Max_Unscaled 
Value 


Subtype  of  generic  formal  type  Scaled_ 
Integers;  used  to  ensure  the  values  of  the 
scaled  input  parameters  are  within  the 
allowable  range 

Subtype  of  generic  formal  type  Unsealed 
Floats;  used  to  ensure  the  values  of  tKe 
scaled  input  parameters  are  vithin  the 
allowable  range 


Data  objects: 

The  following  table  summarizes  the  objects  required  by  this  part  and  defined  in 
the  package  body  of  the  External_Form_Conversion_Tvos_Complement  package: 


Name 

1  Type 

Value 

Description 

LSB  Value 

|  Unsealed 

N/A 

Value  of  the  least  significant 

Floats 

bit 

Scaled  Bias 

|  Scaled 

2**(Bits 

Amount  by  which  the  median 

j  Integers 

in  Scaled 

scaled  value  is  negatively 

Values-1) 

offset  from  0 

Unsealed  Bias 

j  Unsealed 

Initial 

Amount  by  which  the  median 

]  Floats 

Unsealed 

unsealed  value  negatively 

1 

Bias 

offset  from  0 

3.3.6.5.2.10.2.8  LIMITATIONS 


None. 
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package  body  External_Form_Conversion_Tvos_Complement  is 


—  —  local  variables  - 


One_Over_Lsb_Value  :  constant  Unscaled_Floats  1.0  /  Lsb_Value; 

Scaled_Bias  :  constant  Scaled_Integers  2**(Bits_In_Scaled_Values-l) ; 

Unscaled_Bias  :  constant  Unscaled_Floats 

:*=  ( (Max_Unscaled_Value  -  Min_Unscaled_Value  + 
Lsb_Value)  /  2  )  + 

Min  Unsealed  Value; 


pragma  PAGE; 

function  Scale  (Unscaled_Value  :  Valid_Unscaled  Floats) 
return  Posit ive_Scaled_Integers  Is 

Answer  :  Scaled_Integers; 

begin 

Answer  :«  (Unscaled_Value  -  Unscaled_Bias)  *  0ne_0ver_Lsb_Value  + 
ScaledBias; 
return  Answer; 

end  Scale; 

pragma  PAGE; 

function  Unscale  (Scaled  Value  s  Posit ive_Scaled_Integers) 
return  Valid_Unscaled_Floats  is 

Answer  :  Unscaled_Floats; 

begin 

Answer  Unscaled_Bias  +  (Scaled_Value  -  Scaled_Bias)  *  Lsb_Value; 
return  Answer; 

end  Unscale; 

pragma  PAGE; 
begin 

—  —  make  sure  min  <  max 

if  Initial  Min_Unscaled_Value  >  Initial_Max_Unscaled_Value  then 
raise  NUMERI C_ERR0R ; 
end  if; 

end  External_Form_Conversion_Twos  Complement; 
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3. 3. 6. 6  SIGNALPROCESSING  (BODY)  TLCSC  P686  (BODY)  (CATALOG  #P81-0) 

This  package  provides  signal  processing  parts.  Each  part  is  designed  as  an  Ada 
generic  package,  where  the  generic  parameters  will  specify  the  data  types  of 
the  input  and  output  signals  and  the  values  for  coefficients  used  in  performing 
the  signal  processing  functions. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 6.1  REQUIREMENTS  ALLOCATION 

The  following  diagram  summarizes  the  allocation  of  CAMP  requirements  to  this 
part's  LLCSC's. 


Name 

1  Type 

Req.  Allocat 

Limiter  (Upper  &  Lower  Bounds) 

|  generic 

l 

package 

R108 

Limiter  (Upper  Bound) 

1 

|  generic 

1 

package 

R037 

Limiter  (Lower  Bound) 

|  generic 

1 

package 

R038 

Absolute  limiter 

|  generic 

l 

package 

R160 

Absolute  limiter  with  flag 

|  generic 

l 

package 

R202 

General  First  Order  Filter 

|  generic 

i 

package 

R109 

Tustin  Lag  Filter 

|  generic 

l 

package 

R162 

Tustin  Lead-Lag  Filter 

1 

|  generic 

1 

package 

R161 

Second  Order  (Notch)  Filter 

|  generic 

1 

package 

R110,  Rill 

Tustin  Integrator  with  Limit 

|  generic 

1 

package 

R203 

Tustin  Integrator  with 
Asymmetric  Limit 

|  generic 

1 

package 

N/A 

3. 3. 6. 6. 2  LOCAL  ENTITIES  DESIGN 
None. 

3. 3. 6. 6. 3  INPUT/OUTPUT 


None. 
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3. 3. 6. 6. 4  LOCAL  DATA 
None. 

3. 3. 6. 6. 5  PROCESS  CONTROL 
Not  applicable. 

3. 3. 6. 6. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
package  body  Signal_Processing  is 

package  body  Upper_Lower_Limiter  is  separate; 
package  body  Upper_Limiter  is  separate; 
package  body  Lower_Limiter  is  separate; 
package  body  Absolute_Limiter  is  separate; 
package  body  AbsoluteLimiterVithFlag  is  separate; 
package  body  GeneralFirstOrderFilter  is  separate; 
package  body  Tustin_Lead_Lag_Filter  is  separate; 
package  body  Tustin_Lag_Filter  is  separate; 
package  body  Second_Order_Filter  is  separate; 
package  body  Tustin_Integrator_With_Limit  is  separate; 
package  body  Tustin_Integrator_Vith_Asymmetric_Limit  is  separate; 
begin 
null; 
exception 

when  others  =>  raise; 
end  SignalProcessing; 

3. 3. 6. 6. 7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 
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3. 3. 6. 6. 8  LIMITATIONS 


None. 


3. 3. 6. 6. 9  LLCSC  DESIGN 

3. 3. 6. 6. 9.1  UPPER_LOWER_LIMITER  (PACKAGE  BODY)  PACKAGE  DESIGN  (CATALOG  #P82-0) 

This  package  exports  operations  to  perform  a  limiter  function  on  an  input 
signal  (with  both  upper  and  lover  bounds)  and  to  update  the  values  of  the 
bounds.  The  package  initializes  the  limits  as  part  of  the  elaboration  of  the 
instantiation. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 6. 9. 1.1  REQUIREMENTS  ALLOCATION 
R108 


3. 3. 6. 6. 9. 1.2  LOCAL  ENTITIES  DESIGN 


Subprograms : 

This  package  contains  a  sequence  of  statements  at  the  end  of  the  package  body 
which  are  executed  when  this  part  is  elaborated.  The  code  initializes  the 
upper  and  lover  bounds  by  calling  the  Update_Limits  procedure  from  this 
package.  Update_Limits  raises  the  Limit_Exception  if  the  upper  bound  is  less 
than  or  equal  to  the  lover  bound. 


3. 3. 6. 6. 9. 1.3  INPUT/OUTPUT 
None. 


3. 3. 6. 6. 9. 1.4  LOCAL  DATA 
Data  objects: 

The  following  data  objects  are  maintained  by  this  part: 


|  Name 

1  Type 

|  Description 

1 

|  Upper  Limit 

1 

|  Signal  Type 

1 

|  Current  value 
|  to  limiter. 

of 

upper 

limit  | 

1 

|  Lower  Limit 

1 

1  Signal  Type 

j  Current  value 
|  to  limiter. 

of 

lower 

limit  1 

1 
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3. 3. 6. 6. 9. 1.5  PROCESS  CONTROL 


Not  applicable. 


3. 3. 6. 6. 9. 1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (SIGNAL  PROCESSING) 
package  body  UPPER_LOWER_LI MITER  is 

—  —  Local  Data  Objects- 


Upper_Limit, 

Lower_Limit  :  Signal_Type; 


— begin  processing  for  package  body 


begin 

UpdateLimits  (NewUpperLimit  »>  InitialUpperLimit, 
NewLowerLimit  »>  Initial_Lower_Limit); 

end  Upper_Lower_Limiter; 


3. 3. 6. 6. 9. 1.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3.3. 6. 6. 9. 1.8  LIMITATIONS 


|  Name  |  When/Why  Raised 


|  Limit_Exception  |  This  exception  is  raised  if  the  value  of  the 
j  j  Upper_Limit  <=  Lower_Limit 


3. 3. 6. 6. 9- 1.9  LLCSC  DESIGN 


None. 
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3.3.6.6.9.1.10  UNIT  DESIGN 

3.3.6.6.9.1.10.1  UPDATE_LIMITS  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  updates  the  values  of  the  bounds  which  were  initialized  at  the 
elaboration  of  the  instantiation.  It  will  raise  an  exception  if  the  new  lower 
limit  is  greater  than  the  new  upper  limit. 


3.3.6.6.9.1.10.1.1  REQUIREMENTS  ALLOCATION 
R108 


3.3.6.6.9.1.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.6.9.1.10.1.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

Type 

|  Description  | 

|  Signal  Type  | 

1  ‘  1 

generic  float 

|  Defines  data  type  for  incoming! 
signals  to  limiter.  I 

FORMAL  PARAMETERS: 

The  following  table 

summarizes  the 

formal  parameters  to  this  part: 

|  Name  | 

Type 

|  Description  | 

|  New  Upper  Limit  | 

i  ~  ! 

|  New  Lower  Limit  | 

1  ”  1 

Signal_Type 

Signal_Type 

|  New  value  for  upper  limit  to  | 
j  limiter.  j 

j  New  value  for  lower  limit  to  j 
limiter.  j 

Global  parameters: 

|  Name  | 

Type 

|  Description  | 

|  Upper  Limit  | 

1  1 

|  Lower  Limit  I 

1  '  1 

Signal  Type 

Signal  Type 

|  Current  value  of  upper  limit  | 
j  to  limiter. 

j  Current  value  of  lower  limit  j 
j  to  limiter. 
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3.3.6.6.9.1.10.1.4  LOCAL  DATA 


None. 


3.3.6.6.9.1.10.1.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.6.9.1.10.1.6  PROCESSING 


The  following  describes  the  processing  performed  by  this  part: 


procedure  Update_Limits  (New_Upper_Limit 

New  Lower  Limit 


begin 


in  Signal_Type; 
in  SignalJType)  is 


if  New_Upper  Limit  >  New_Lower_Limit  then 
Upper_LimTt  :*  NewJJpperJLimit; 
Lower_Limit  :«  New_Lower_Limi t j 
else 

raise  Limit_Exception; 
end  if; 


end  Update_Limits; 


3.3.6.6.9.1.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.6.9.1.10.1.8  LIMITATIONS 


|  Name  |  When/Why  Raised  | 


|  Limi t_Exception  |  This  exception  is  raised  if  the  value  of  the  | 
j  j  New_Upper_Limit  <■  New_Lower_Limit  j 


3.3.6.6.9.1.10.2  LIMIT  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  performs  the  limit  operation  on  the  input  signal. 


3.3.6.6.9.1.10.2.1  REQUIREMENTS  ALLOCATION 


R108 
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3.3.6.6.9.1.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.6.9.1.10.2.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

Type 

|  Description  | 

|  Signal  Type  | 

1  ,  1 

generic  float 

|  Defines  data  type  for  incoming | 

[  signals  to  limiter.  j 

FORMAL  PARAMETERS: 

The  following  table  summarizes  the 

formal  parameters  to  this  part: 

|  Name  | 

Type 

|  Description  | 

|  Signal  | 

1  1 

SignalType 

|  Input  value  of  signal  to  be  | 

|  limited.  j 

Global  parameters: 

|  Name  | 

Type 

|  Description  | 

|  Upper  Limit  | 

!  "  1 

|  Lower  Limit 

1  "  1 

SignalJType 

SignalJType 

|  Current  value  of  upper  limit  | 

to  limiter.  { 

j  Current  value  of  lover  limit  | 

j  to  limiter.  j 

3.3.6.6.9.1.10.2.4 

LOCAL  DATA 

Data  objects: 

The  following  data  objects  are  maintained  by  this  part: 

|  Name  | 

Type 

|  Description  | 

|  Limited  Signal  | 

1  ~  1 

SignalJType 

|  Value  of  signal  after  limit  | 

{  is  applied.  j 
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3.3.6.6.9.1.10.2.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.6.9.1.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Limit  (Signal  :  Signal_Type)  return  Signal  Type  is 
Limited_Signal:  Signal_Type; 
begin 

if  Signal  >  Upper_Limit  then 

Limited_Signal  Upper_Limit; 
elsif  Signal  <  Lower_Limit  then 
Limited_Signal  :=  Lower_Limit; 
else 

Limited_Signal  :*  Signal; 
end  if; 

return  Limited_Signal; 
end  LIMIT; 


3.3.6.6.9.1.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.6.9.1.10.2.8  LIMITATIONS 


None. 


3. 3. 6. 6. 9. 2  UPPERLIMITER  (PACKAGE  BODY)  PACKAGE  DESIGN  (CATALOG  #P83-0) 

This  package  exports  operations  to  perform  a  limiter  function  on  an  input 
signal  (with  upper  bounds)  and  to  update  the  value  of  the  bounds.  The  package 
initializes  the  limits  as  part  of  the  elaboration  of  the  instantiation. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 6. 9. 2.1  REQUIREMENTS  ALLOCATION 


R037 


CAMP  Software  Detailed  Design  Document 


Page  1229 


3. 3. 6. 6. 9. 2. 2  LOCAL  ENTITIES  DESIGN 


None. 


3. 3. 6. 6. 9. 2. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

1  Description 

1 

|  Signal  Type 

1 

|  generic  float 

1 

|  Defines  data 
signals  to 

type  for  incoming! 
limiter.  i 

Data  objects: 


|  Name 

1  Type 

|  Description  | 

I  Initial  Upper 

|  Signal  Type 

|  Initial  value  of  upper  limit 

i  Limit 

1 

signals  to  limiter. 

3. 3. 6. 6. 9. 2. 4  LOCAL  DATA 


Data  objects: 

The  following  data  objects  are  maintained  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Upper  Li.nit 

1 

1 

|  Signal  Type 

1 

1 

|  Current  value  of  upper  limit  | 

|  to  limiter.  Initialized 

j  to  Initial_Upper_Limit. 

3. 3. 6. 6. 9. 2. 5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 6. 9. 2. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (Signal_Processing) 
package  body  Upper_Limiter  is 
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—  —  Local  Data  Object- 

UpperJLimit :  Signal_Type  :=  Initial_Upper_Limit ; 
end  Upper_Limi ter; 

3. 3. 6. 6. 9. 2. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 3. 6. 6. 9. 2. 8  LIMITATIONS 
None. 

3. 3. 6. 6. 9. 2. 9  LLCSC  DESIGN 
None. 

3.3.6.6.9.2.10  UNIT  DESIGN 

3.3.6.6.9.2.10.1  UPDATELIMIT  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  updates  the  values  of  the  bounds  which  were  initialized  at  the 
elaboration  of  the  instantiation. 

3.3.6.6.9.2.10.1.1  REQUIREMENTS  ALLOCATION 
R037 

3.3.6.6.9.2.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.6.9.2-10.1.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description 

1 

|  Signal  Type 

I 

|  generic  float 

1 

|  Defines  data 
!  signals  to 

type  for  incoming! 
limiter.  j 
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FORMAL  PARAMETERS: 

The  following  table  summarizes  the  formal  parameters  to  this  part: 


|  Name  | 

Type 

|  Description  | 

|  New  Upper  Limit  | 

1  ‘  1 

Signal_Type 

|  New  value  for  upper  limit  to  | 
limiter.  j 

Global  parameters: 

|  Name  | 

Type 

|  Description  | 

|  Upper  Limit  j 

1  "  1 

Signal  Type 

|  Current  value  of  upper  limit 
'  to  limiter.  j 

3.3.6.6.9.2.10.1.4 

LOCAL  DATA 

None. 

3.3.6.6.9.2.10.1.5 

PROCESS  CONTROL 

Not  applicable. 

3.3.6.6.9.2.10.1.6 

PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Update_Limit  (New_Upper_Limit  :  in  Signal_Type)  is 
begin 

Upper_Limit  :■  New_Upper_Limit; 
end  Update_Limit; 

3.3.6.6.9.2.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.6.9.2.10.1.8  LIMITATIONS 


None. 
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3.3.6.6.9.2.10.2  LIMIT  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  performs  the  limit  operation  on  the  input  signal. 

3.3.6.6.9.2.10.2.1  REQUIREMENTS  ALLOCATION 
R037 

3.3.6.6.9.2.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.6.9.2.10.2.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

Type 

|  Description  | 

|  Signal  Type  | 

1  '  1 

generic  float 

|  Defines  data  type  for  incoming  | 

|  signals  to  limiter.  j 

FORMAL  PARAMETERS: 

The  following  table 

summarizes  the 

formal  parameters  to  this  part: 

|  Name  | 

Type 

|  Description  | 

1  Signal  | 

1  1 

Signal_Type 

|  Input  value  of  signal  to  be  | 
limited.  | 

Global  parameters: 

|  Name  | 

Type 

|  Description  | 

|  Upper  Limit 

1  "  1 

Signal  Type 

!  Current  value  of  upper  limit  | 

!  to  limiter.  j 

3.3.6.6.9.2.10.2.4 

LOCAL  DATA 

Data  objects: 
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The  following  data  objects  are  maintained  by  this  part: 


|  Name  | 

Type 

|  Description  | 

|  Limited  Signal  | 

1  "  1 

Signal_Type 

|  Value  of  signal  after  limit  | 

|  is  applied.  j 

3.3.6.6.9.2.10.2.5 

PROCESS  CONTROL 

Not  applicable. 

3.3.6.6.9.2.10.2.6 

PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Limit  (Signal  :  Signal_Type)  return  Signal_Type  is 
Limi ted_Signal :  Signal_Type; 
begin 

if  Signal  >  UpperLimit  then 
LimitedSignal  :-  Upper_Limit; 
else 

Limited_Signal  :■  Signal; 
end  if; 

return  Limited_Signal; 
end  LIMIT; 

3.3.6.6.9.2.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.6.9.2.10.2.8  LIMITATIONS 
None. 


3. 3. 6. 6. 9. 3  L0WER_LIMITER  (PACKAGE  BODY)  PACKAGE  DESIGN  (CATALOG  #P84-0) 

This  package  exports  operations  to  perform  a  limiter  function  on  an  input 
signal  (with  lower  bound)  and  to  update  the  value  of  the  bound.  The  package 
initializes  the  limits  as  part  of  the  elaboration  of  the  instantiation. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 
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3. 3. 6. 6. 9. 3.1  REQUIREMENTS  ALLOCATION 
R038 


3. 3. 6. 6. 9. 3. 2  LOCAL  ENTITIES  DESIGN 


None. 


3. 3. 6. 6. 9. 3. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Signal_Type 

|  generic  float 

1 

|  Defines  data  type  for  incoming | 
signals  to  limiter.  j 

Data  objects: 


|  Name  |  Type 

|  Description  | 

|  Initial_Lower_  |  Signal_Type 
j  Limit  j 

|  Initial  value  of  lover  limit  | 
j  signals  to  limiter.  j 

3. 3. 6. 6. 9. 3. 4  LOCAL  DATA 

Data  objects: 

The  following  data  objects  are  maintained  by  this  part: 

|  Name  |  Type 

|  Description  | 

|  Lower  Limit  |  Signal  Type 

1  1 

1  1 

|  Current  value  of  lower  limit  | 

|  to  limiter.  Initialized 

i  to  Initial_Lover_Limit.  j 

3. 3. 6. 6. 9. 3. 5  PROCESS  CONTROL 
Not  applicable. 
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3. 3. 6. 6. 9. 3. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (SIGNAL_PROCESSING) 
package  body  LOWER_LIMITER  is 


—  —  Local  data  objects 


Lower_Limit  :  Signal_Type  :«  Initial_Lower_Limit; 
end  Lower_Limiter; 

3. 3. 6. 6. 9. 3. 7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3. 3. 6. 6. 9. 3. 8  LIMITATIONS 


None. 


3. 3. 6. 6. 9. 3. 9  LLCSC  DESIGN 


None. 


3.3.6.6.9.3.10  UNIT  DESIGN 

3.3.6.6.9.3.10.1  UPDATELIMIT  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  updates  the  value  of  the  bound  which  was  initialized  at  the 
elaboration  of  the  instantiation. 

3.3.6.6.9.3.10.1.1  REQUIREMENTS  ALLOCATION 
R038 


3.3.6.6.9.3.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.6.9.3.10.1.3  INPUT/OUTPUT 


GENERIC  PARAMETERS: 


Data  types: 
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The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

Type 

|  Description  | 

|  Signal  Type  | 

1  "  1 

generic  float 

|  Defines  data  type  for  incoming  | 
j  signals  to  limiter.  j 

FORMAL  PARAMETERS: 

The  following  table 

summarizes  the 

formal  parameters  to  this  part: 

|  Name  | 

Type 

|  Description  | 

|  New  Lower  Limit  | 

1  '  "  1 

Signal_Type 

|  New  value  for  lower  limit  to  | 
limite^.  j 

Global  parameters: 

|  Name  | 

Type 

|  Description  | 

|  Lower  Limit  | 

1  "  1 

SignalType 

|  Current  value  of  lover  limit  | 

I  to  limiter.  j 

3.3.6.6.9.3.10.1.4 

LOCAL  DATA 

None. 

3.3.6.6.9.3.10.1.5 

PROCESS  CONTROL 

Not  applicable. 

3.3.6.6.9.3.10.1.6 

PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  UpdateLimit  (New_Lower_Limit  :  in  Signal_Type)  is 
begin 

Lower_Limit  :=  New_Lower_Limit; 
end  Update_Limit; 

3.3.6.6.9.3.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 
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3.3.6.6.9.3.10.1.8  LIMITATIONS 
None. 

3.3.6.6.9.3.10.2  LIMIT  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  performs  the  limit  operation  on  the  input  signal. 

3.3.6.6.9.3.10.2.1  REQUIREMENTS  ALLOCATION 
R037 

3.3.6.6.9.3.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.6.9.3.10.2.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Signal  Type 

1 

|  generic  float 

1 

|  Defines  data  type  for  incoming | 
signals  to  limiter. 

FORMAL  PARAMETERS: 

The  following  table  summarizes  the 

formal  parameters  to  this  part: 

|  Name 

1  Type 

|  Description  | 

|  Signal 

1 

|  Signal  Type 

1 

|  Input  value  of  signal  to  be 
j  limited.  j 

Global  parameters: 

|  Name 

1  Type 

|  Description  | 

|  Lower  Limit 

1 

|  Signal  Type 

1 

|  Current  value  of  lower  limit  | 
to  limiter.  j 
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3.3.6.6.9.3.10.2.4  LOCAL  DATA 
Data  objects: 

The  following  data  objects  are  maintained  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Limited  Signal 

1 

|  Signal  Type 

1 

|  Value  of  signal  after  limit  | 

!  is  applied.  j 

3.3.6.6.9.3.10.2.5 

PROCESS  CONTROL 

Not  applicable. 

3.3.6.6.9.3.10.2.6 

PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Limit  (Signal  :  SignalType)  return  SignalType  is 
Limited_Signal:  Signal_Type; 
begin 

if  Signal  <  LowerJLimit  then 

Limited_Signal  :«  Lower_Lioit; 
else 

Limited_Signal  :=  Signal; 
end  if; 

return  LimitedSignal; 
end  LIMIT; 


3.3.6.6.9.3.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.6.9.3.10.2.8  LIMITATIONS 


None. 


3. 3. 6. 6. 9. 4  ABSOLUTE_LIMITER  (PACKAGE  BODY)  PACKAGE  DESIGN  (CATALOG  #P85-0) 

This  package  exports  operations  to  perform  a  limiter  function  on  an  input 
signal  (with  absolute  bounds)  and  to  update  the  value  of  the  bounds.  The 
package  initializes  the  limits  as  part  of  the  elaboration  of  the  instantiation. 
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The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 

3. 3. 6. 6. 9. 4.1  REQUIREMENTS  ALLOCATION 
R160  • 

3. 3. 6. 6. 9. 4. 2  LOCAL  ENTITIES  DESIGN 


|  Name 

1  Type 

|  Description  | 

|  Signal  Sign 

1 

|  Function 

1 

|  Instantiation  of  Sign  function | 

|  from  General_Purpose_Math.  j 

3. 3. 6. 6. 9. 4. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Signal_Type 

|  generic  float 

1 

|  Defines  data  type  for  incoming | 
i  signals  to  limiter.  j 

Data  objects: 


|  Name  | 

Type 

|  Description  | 

|  Initial  Absolute | 
j  Limit  | 

Signal_Type 

|  Initial  value  of  absolute 

limit  of  signals  to  limiter. j 

3. 3. 6. 6. 9. 4. 4  LOCAL  DATA 
Data  objects: 

The  following  data  objects  are  maintained  by  this  part: 


|  Name 

1  Type 

|  Description  j 

|  Absolute  Limit 

1 

|  Signal  Type 

1 

|  Current  value  of  abslute  limit | 

!  to  limiter.  j 
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3. 3. 6. 6. 9. 4. 5  PROCESS  CONTROL 
Not  applicable. 

3. 3. 6. 6. 9. 4. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (SIGNALPROCESSING) 
package  body  Absolute_Limiter  is 

—  — Local  Data  Object- 

Absolute_Limit:  Signal_Type  abs  (Initial_Absolute_Limit) ; 
end  Absolute_Limiter; 

3. 3. 6. 6. 9. 4. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 3. 6. 6. 9. 4. 8  LIMITATIONS 
None. 

3. 3. 6. 6. 9. 4. 9  LLCSC  DESIGN 
None. 

3.3.6.6.9.4.10  UNIT  DESIGN 

3.3.6.6.9.4.10.1  UPDATELIMIT  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  updates  the  value  of  the  absolute  bound  which  was  initialized 
at  the  elaboration  of  the  instantiation. 

3.3.6.6.9.4.10.1.1  REQUIREMENTS  ' LLOCATION 
R160 

3.3.6.6.9.4.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 
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3.3.6.6.9.4.10.1.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

Type 

|  Description  | 

|  Signal  Type  | 

1  "  1 

generic  float  |  Defines  data  type  for  incoming | 

i  signals  to  limiter.  j 

FORMAL  PARAMETERS: 

The  following  table 

summarizes 

the  formal  parameters  to  this  part: 

|  Name  | 

Type 

|  Description  | 

|  New  Absolute_  ' 

|  Limit 

Signal_Type 

|  New  value  for  absolute  limit  | 
to  limiter. 

Global  parameters: 

|  Name  | 

Type 

|  Source  |  Description  | 

|  Absolute  Limit  | 

1  1 

Signal_Type| Package  |  Current  value  of  absolute  | 
j  Body  |  limit  to  limiter.  j 

3.3.6.6.9.4.10.1.4 

LOCAL  DATA 

None. 


3.3.6.6.9.4.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.6.9.4.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Update_Limit  (Nev_Absolute_Limi t  :  in  Signal_Type)  is 
begin 

Absolute_Limit  :=  abs  (Nev_Absolute_Limit) ; 


end  Update  Limit; 
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3.3.6.6.9.4.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS  ^ 

None. 

3.3.6.6.9.4.10.1.8  LIMITATIONS 
None. 

3.3.6.6.9.4.10.2  LIMIT  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  performs  the  limit  operation  on  the  input  signal. 

3.3.6.6.9.4.10.2.1  REQUIREMENTS  ALLOCATION 
R160 

3.3.6.6.9.4.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.6.9.4.10.2.3  INPUT/OUTPUT 

GENERIC  PARAMETERS!  { 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

Type 

|  Description  | 

|  Signal  Type  | 

1  '  1 

generic  float 

|  Defines  data  type  for  incoming 
|  signals  to  limiter. 

FORMAL  PARAMETERS: 

The  following  table 

summarizes  the 

formal  parameters  to  this  part: 

|  Name  | 

Type 

|  Description  | 

|  Signal  | 

1  1 

Signal_Type 

|  Input  value  of  signal  to  be 

limited.  j 

Global  parameters: 
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|  Name 

|  Type  |  Source 

Description  | 

|  Absolute  limit 

1 

|  Signal  Type | Package 
|  |  Body 

Current  value  of  absolute  | 
limit  to  limiter.  j 

3.3.6.6.9.4.10.2.4  LOCAL  DATA 
Data  objects: 

The  following  data  objects  are  maintained  by  this  part: 


|  Name  | 

Type 

|  Description  | 

|  Limited  Signal  | 

1  "  1 

Signal_Type 

|  Value  of  signal  after  limit 

I  is  applied. 

3.3.6.6.9.4.10.2.5 

PROCESS  CONTROL 

Not  applicable. 

3.3.6.6.9.4.10.2.6 

PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Limit  (Signal  :  Signal_Type)  return  Signal_Type  is 
Limited_Signal:  SignalType; 
begin 

if  abs  (Signal)  >  Absolute_Limit  then 
if  Signal  >  0.0  then 

Limited_Signal  :=  Absolute_Limit; 
else 

Limi ted_Signal  :■  -  Absolute_Lirait; 
end  if; 
else 

Limited_Signal  :=  Signal; 
end  if; 

return  Limited_Signal; 
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end  LIMIT; 


3.3.6.6.9.4.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3.3.6.6.9.4.10.2.8  LIMITATIONS 


None. 


3. 3. 6. 6. 9. 5  ABSOLUTE  LIMITER_WITH_FLAG  (PACKAGE  BODY)  PACKAGE  DESIGN  (CATALOG 
#P86-0) 

This  package  exports  operations  to  perform  a  limiter  function  on  an  input 
signal  (with  absolute  bounds)  and  to  update  the  value  of  the  bounds.  The  limit 
operation  will  set  a  flag  to  represent  the  relation-  ship  of  the  signal  to  the 
limit:  Vithin_Limit,  At_Positive_Limit,  AtJNegative_Limit.  The  package 
initializes  the  limits  as  part  of  the  elaboration  of  the  instantiation. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 6. 9. 5.1  REQUIREMENTS  ALLOCATION 
R202 


3. 3. 6. 6. 9. 5. 2  LOCAL  ENTITIES  DESIGN 


|  Name 

1  Type 

|  Description  | 

|  Signal  Sign 

1 

|  Function 

1 

|  Instantiation  of  Sign  function | 
i  from  General_Purpose_Math.  | 

3. 3. 6. 6. 9. 5. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description 

1 

|  Signal  Type 
! 

|  generic  float 

1 

|  Defines  data 
!  signals  to 

type  for  incoming | 
limiter.  [ 
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Data  objects: 


|  Name  | 

Type 

Description  | 

|  Initial  Absolute | 

Signal  Type 

Initial  value  of  absolute  | 

|  Limit  ; 

limit  of  signals  to  limiter. j 

3. 3. 6. 6. 9. 5. 4  LOCAL  DATA 

Data  objects: 

The  following  data  objects  are  maintained  by  this  part: 

|  Name  | 

Type 

Description  | 

|  Absolute  Limit  | 

Signal  Type 

Current  value  of  absolute  | 

limit  to  limiter.  I 

|  Limit  Relation  | 

Limit  Relations 

Represents  relationship  of  i 

most  recent  signal  to  limit. j 

Initialized  to  Vithin  Limit.  | 

3. 3. 6. 6. 9. 5. 5  PROCESS  CONTROL 
Not  applicable. 

3. 3. 6. 6. 9. 5. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (SIGNALPROCESSING) 

package  body  Absolute_Limiter_Vith  Flag  is 

—  — Local  Data  Object- 

AbsoluteJLimit:  Signal_Type  abs  (Initial_Absolute_Limit) ; 
Limit_Relation:  Limit_Relations  :=  Within_Limit ; 

end  Absolute_Limi ter_with_Flag; 

3. 3. 6. 6. 9. 5. 7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 
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3. 3. 6. 6. 9. 5. 8  LIMITATIONS 
None. 

3. 3. 6. 6. 9. 5. 9  LLCSC  DESIGN 
None. 

3.3.6.6.9.5.10  UNIT  DESIGN 

3.3.6.6.9.5.10.1  UPDATELIMIT  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  updates  the  value  of  the  absolute  bound  vhich  was  initialized 
at  the  elaboration  of  the  instantiation. 

3.3.6.6.9.5.10.1.1  REQUIREMENTS  ALLOCATION 
R202 

3.3.6.6.9.5.10.1.2  LOCAL  ENTITIES  DESIGN 
None . 

3.3.6.6.9.5.10.1.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

Type 

|  Description  | 

|  Signal  Type  | 

1  '  1 

generic  float 

|  Defines  data  type  for  incoming | 
j  signals  to  limiter.  j 

FORMAL  PARAMETERS: 

The  following  table 

summarizes  the 

formal  parameters  to  this  part: 

|  Name  > 

Type 

|  Description  | 

|  Nev_Absolute_  | 

[  Limit  j 

Signal_Type 

|  New  value  for  absolute  limit  | 

1  to  limiter.  j 

Global  parameters: 
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|  Name  | 

Type  |  Source  | 

Description  | 

|  Absolute  Limit  I 

1  1 

Signal  Type | Package  | 
j  Body  j 

Current  value  of  absolute  | 
limit  to  limiter. 

3.3.6.6.9.5.10.1.4 

LOCAL  DATA 

None. 

3.3.6.6.9.5.10.1.5 

PROCESS  CONTROL 

Not  applicable. 

3.3.6.6.9.5.10.1.6 

PROCESSING 

The  foil-  'ng  describes  the  processing  performed  by  this  part: 

procedure  Update_Limit  (Nev_Absolute_Limit  :  in  Signal_Type)  is 
begin 

AbsoluteLimit  :«  abs  (Nev_Absolute_Limit) ; 
end  Update_Limit; 


3.3.6.6.9.5.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.6.9.5.10.1.8  LIMITATIONS 


None. 


3.3.6.6.9.5.10.2  LIMIT  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  performs  the  limit  operation  on  the  input  signal. 

3.3.6.6.9.5.10.2.1  REQUIREMENTS  ALLOCATION 
R160 

3.3.6.6.9.5.10.2.2  LOCAL  ENTITIES  DESIGN 


None. 
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3.3.6.6.9.5.10.2.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description 

1 

|  Signal  Type 

1 

|  generic  float 

1 

|  Defines  data 
j  signals  to 

type  for  incoming! 
limiter.  j 

FORMAL  PARAMETERS: 

The  following  table  summarizes  the  formal  parameters  to  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Signal 

1 

|  Signal  Type 

1 

|  Input  value  of  signal  to  be 

1  limited. 

Global  parameters: 


|  Name  |  Type  | 

Source 

|  Description  | 

|  Absolute  limit |  Signal  Type| 

1  1  '  1 

Package 

Body 

|  Current  value  of  absolute  | 

limit  to  limiter.  j 

3.3.6.6.9.5.10.2.4  LOCAL  DATA 
Data  objects: 

The  following  data  objects  are  maintained  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Limited  Signal 

1 

|  Signal  Type 

1 

|  Value  of  signal  after  limit  | 

j  is  applied.  | 

3.3.6.6.9.5.10.2.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.6.6.9.5.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Limit  (Signal  :  Signal_Type)  return  Signal_Type  is 
Limited_Signal:  Signal_Type; 
begin 

if  abs  (Signal)  >«  Absolute_Limit  then 

if  Signal  >«  0.0  then 

Limited_Signal  :■  Absolute  Limit; 

Limit_Relation  :«  At_PositTve_Limit; 

else 

Limited_Signal  :»  -  Absolute  Limit; 

Limit_Relation  :■  At_Negative_Limit; 

end  if; 

else 

Limi ted_Signal  Signal; 

Limit_Relation  Vithin_Limit; 

end  if; 

return  Limited_Signal; 
end  LIMIT; 


3.3.6.6.9.5.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.6.9.5.10.2.8  LIMITATIONS 
None. 

3.3.6.6.9.5.10.3  L1MIT_FLAG_SETTING  (SUBPROGRAM  BODY)  UNIT  DESIGN 
This  subprogram  returns  the  current  setting  of  the  limit  relation  flag. 

3.3.6.6.9.5.10.3.1  REQUIREMENTS  ALLOCATION 


R202 
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3.3.6.6.9.5.10.3.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.6.9.5.10.3.3  INPUT/OUTPUT 
None. 

3.3.6.6.9.5.10.3.4  LOCAL  DATA 
None. 

3.3.6.6.9.5.10.3.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.6.9.5.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  LimitFlagSetting  return  Limit_Relations  is 
begin 

return  LimitRelation; 
end  LimitFlagSetting; 

3.3.6.6.9.5.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.6.9.5.10.3.8  LIMITATIONS 
None. 


3. 3. 6. 6. 9. 6  GENERAL_FIRST_ORDER  FILTER  (PACKAGE  BODY)  PACKAGE  DESIGN  (CATALOG 
#P87-0) 

This  package  exports  operations  to  perform  a  first  order  filter  operation  on  an 
input  signal.  The  package  also  allows  updating  of  the  filter  coefficients. 

The  package  initializes  the  coefficients  and  initial  filter  state  as  part  of 
the  elaboration  of  the  instantiation. 

The  form  of  the  filter  operations  is  as  follows: 

X  :=  (cl  *  Input_Signal)  +  (c2  *  Prev_Input)  + 

(c3  *  Prev_0utput) 

Prevlnput  :=  Input_Signal; 

Prev_Output  :=  X; 
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The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 6. 9. 6.1  REQUIREMENTS  ALLOCATION 
R109 

3. 3. 6. 6. 9. 6. 2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 6. 6. 9. 6. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

Type 

|  Description  | 

|  Signal  Type  | 

!  "  1 

generic  float 

Defines  data  type  for  incoming 
signals  to  filter. 

|  Coefficient  Typel 

1  ”  1 

generic  float 

Defines  data  type  for  defining 
filter  coefficients. 

Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part : 


|  Name  |  Type  |  Description 


Initial  Previous 
Input_Signal 
Initial 

Coef flcient_l 
Initial 

CoeffTcient_2 

Initial 

Coefficient  3 


Signal_Type 
Coefficient_Type 
Coe  f  f i c ien  t_Ty pe 
Coefficient _Type 


Initial  value  of  previous 
input  signal. 

Initial  value  of  first  filter 
Coefficient. 

Initial  value  of  second  filter 
Coefficient. 

Initial  value  of  third  filter 
Coefficient . 


Subprograms: 

The  following  table  summarizes  the  generic  formal  subprograms  required  by  this 
part : 
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{  Name 

1  Type 

|  Description  | 

|  "*» 

|  Function 

|  Signal  Type  *  Coefficient  Type| 

1 

return  Signal  Type  j 

j  "/" 

|  Function 

|  Signal  Type  /  Coefficient  Type! 

1 

1 

j  return  Signal_Type  j 

3. 3. 6. 6. 9. 6. 4  LOCAL  DATA 

Data  objects: 

The  following  data  objects  are  maintained  by  this  part: 

1 

Name 

Type  | 

Description  | 

1 

Previous  Input 

Signal  Type  j 

Value  of  signal  input  to 

I 

Signal 

i 

filter  on  previous  pass. 

1 

Previous  Output 

Signal  Type  j 

Value  of  output  signal  from 

1 

Signal 

1 

previous  pass. 

1 

Coefficient  1 

Coefficient  Type| 

Value  of  first  coefficient 

1 

Coefficient 

Coefficient  Typej 

Value  of  second  coefficient 

1 

Coefficient_3 

Coef f icientType j 

Value  of  third  coefficient 

3. 3. 6. 6. 9. 6. 5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 6. 9. 6. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (SIGNALPROCESSING) 

package  body  General_First  Order_Filter  is 


—  —  Local  Data  Object- 


Coefficient^  :  Coeff icient_Type  :  =  Initial  Coefficient_l; 

Coef ficient_2  :  Coeff icient_Type  :=  Initial~Coefficient_2; 

Coeff icient_3  :  Coef ficient_Type  :=  Initial_Coef f icient  3; 

Previous_Input_Signal:  Signal_Type  :=  Initial_PrevIous_Input_Slgnal; 
Previous_Output_Signal:  Signal_Type  := 

(  Previous_Input_Signal  *  (Coef f icient_l  +  Coef f icient_2)  )  / 

(  1.0  -  Coefficient  3); 


end  General  First  Order  Filter; 
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3. 3. 6. 6. 9. 6. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 3. 6. 6. 9. 6. 8  LIMITATIONS 
None. 

3. 3. 6. 6. 9. 6. 9  LLCSC  DESIGN 
None. 

3.3.6.6.9.6.10  UNIT  DESIGN 

3.3.6.6.9.6.10.1  UPDATECOEFFICIENTS  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  updates  the  values  of  the  coefficients  which  were  initialized 
at  the  elaboration  of  the  instantiation. 

3.3.6.6.9.6.10.1.1  REQUIREMENTS  ALLOCATION 
R109 

3.3.6.6.9.6.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.6.9.6.10.1.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name  ! 

Type 

|  Description  | 

|  Coefficient  Type| 

1  '  1 

generic  float 

|  Defines  data  type  for  incoming | 

|  coefficients. 

FORMAL  PARAMETERS: 

The  following  table  summarizes  the  formal  parameters  to  this  part: 
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|  Name 

1  Type 

|  Description 

1 

|  New  Coefficient  1 

Coefficient 

|  New  value  for 

first 

coefficient  | 

j  New  Coefficient  2 

Type 

j  New  value  for 

second 

coefficient  j 

j  New  Coefficient  3 

1 

j  New  value  for 

third 

coefficient  j 

Global  parameters: 

The  following  parameters  used  by  this  procedure  are  stored  in  the  package  body. 

|  Name  |  Type  |  Description  | 

|  Coefficient^  |  Coef ficient_Type |  Current  value  of  first  coefficient  | 

j  Coef f icient_2  j  Coef ficient_Type j  Current  value  of  secont  coefficient! 

j  Coef f icient_3  j  Coef f icient_Type j  Current  value  of  third  coefficient  j 


3.3.6.6.9.6.10.1.4  LOCAL  DATA 
None. 

3.3.6.6.9.6.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.6.9.6.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  UPDATE_COEFFICIENTS  (NEW  COEFFICIENT^  :  in  COEFFICIENT_TYPE ; 

NEW_C0EFFICIENT_2  :  in  COEFFICIENT_TYPE ; 
NEV_C0EFFICIENT"3  :  in  COEFFICIENT_TYPE )  is 

begin 

Coef f icient_l  :«  New_Coefficient_l; 

Coef f icient_2  :«  New_Coef f icient_2; 

Coef f icient_3  :=  New_Coef ficient_3; 

end  UpdateCoefficients; 

3.3.6.6.9.6.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.6.9.6.10.1.8  LIMITATIONS 


None. 
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3.3.6.6.9.6.10.2  FILTER  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  performs  the  filter  operation  on  the  input  signal.  The  form 
for  this  filter  is  as  follows: 

X  :=  (cl  *  Input_Signal)  +  (c2  *  Prev  Input)  + 

(c3  *  Prev_0utput) 

Prev_Input  :=  Input_Signal; 

Prev  Output  :=  X; 


3.3.6.6.9.6.10.2.1  REQUIREMENTS  ALLOCATION 
R109 


3.3.6.6.9.6.10.2.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.6.9.6.10.2.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

Type 

|  Description  | 

|  Signal  Type  | 

1  "  1 

generic  float 

|  Defines  data  type  for  incoming | 
j  signals.  j 

|  Coefficient  Type| 

1  ”  1 

generic  float 

|  Defines  data  type  for  incoming! 
coefficients. 

Subprograms: 


|  Name  | 

Type 

|  Description  | 

1  1 

1  1 

Function 

|  Signal_Type  *  Coefficient_Type| 
j  return  Signal_Type  i 

FORMAL  PARAMETERS: 

The  following  table 

summarizes  the 

formal  parameters  to  this  part: 

|  Name 

1  Type 

|  Description  | 

|  Signal 

|  Signal_Type 

|  New  value  for  input  signal.  | 
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Global  parameters: 


|  Name  |  Type  j  Description 


Previous_Input_ 

Signal 

Previous  Output 
Signal 

Coef f icient_l 
Coeff icient_2 
Coefficient  3 


Signal_Type 

Signal_Type 

Coef f icient_Type 
Coefficient  _Ty pe 
Coef f icient_Type 


Value  of  input  signal  to  previous 
pass. 

Value  of  output  signal  from 
previous  pass. 

Current  value  of  first  coefficient 
Current  value  of  secont  coefficient 
Current  value  of  third  coefficient 


3.3.6.6.9.6.10.2.4  LOCAL  DATA 


None. 


i.3.6.6.9.6.10.2.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.6.9.6.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  FILTER  (SIGNAL  :  SIGNALTYPE)  return  SIGNALTYPE  is 
Output_Signal  :  Signal_Type; 
begin 

OutputSignal  :=  (  Signal  *  Coefficient  1)  + 

(  Previous_Input_SignaI  *  Coef f icient_2)  + 
(  Previous_Output_Signal  *  Coefficient_3) ; 

Previous_Input_Signal  :*=  Signal; 

Previous_Output_Signal  :=  Output_Signal; 

return  Output_Signal; 

end  Filter; 


3.3.6.6.9.6.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3.3.6.6.9.6.10.2.8  LIMITATIONS 


None. 
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3.3.6.6.9.6.10.3  REINITIALIZE  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  reinitializes  the  state  of  the  filter  by  setting 

Previous_Input_Signal  :=  Signal; 

Previous_Output_Signal  :■*  (  Previous_Input_Signal  * 

(Coefficient  1  +  Coeff icient_2)  )  / 
(  1.0  -  Coefficient  3); 


3.3.6.6.9.6.10.3.1  REQUIREMENTS  ALLOCATION 
R109 


3.3.6.6.9.6.10.3.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.6.9.6.10.3.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

Type 

|  Description-  | 

|  Signal  Type  | 

1  "  1 

generic  float 

|  Defines  data  type  for  incoming! 

1  reinitialization  signal.  | 

FORMAL  PARAMETERS: 

The  following  table 

summarizes  the 

formal  parameters  to  this  part: 

|  Name 

1  Type 

|  Description  | 

|  Signal 

1 

|  Signal  Type 

1 

|  Value  used  for  reinitializing  | 
j  filter  state  j 

Global  parameters: 

The  following  parameters  used  by  this  procedure  are  stored  in  the  package  body. 

|  Name  |  Type  |  Description  | 

|  Previous_Input_Value  |  Signal_Type  |  Current  value  of  previous  input  | 

j  Previous_Output_Value  j  Signal_Type  j  Current  value  of  previous  output  j 
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3.3.6.6.9.6.10.3.4  LOCAL  DATA 


None. 


3.3.6.6.9.6.10.3.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.6.9.6.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Reinitialize  (Signal  :  in  Signal_Type)  is 
begin 


Previous_Input_Signal  Signal; 

Previous_Output  Signal  :* 

(  PrevTous_Input_Signal  *  (Coefficient^  +  Coefficient  2)  )  / 
(  1.0  -  Coef ficient_3) ; 
end  Reinitialize; 


3.3.6.6.9.6.10.3.7 


None. 


UTILIZATION  OF  OTHER  ELEMENTS 

( 


3.3.6.6.9.6.10.3.8  LIMITATIONS 


None. 


3. 3. 6. 6. 9. 7  TUSTINLAGFILTER  (PACKAGE  BODY)  PACKAGE  DESIGN  (CATALOG  #P88-0) 

This  package  exports  operations  to  perform  a  Tustin  Lag  filter  operation  on  an 
input  signal.  The  package  also  allows  updating  of  the  filter  coefficients. 

The  package  initializes  the  coefficients  and  initial  filter  state  as  part  of 
the  elaboration  of  the  instantiation. 

The  form  of  the  filter  operations  is  as  follows: 

X  :=  (cl  *  (Input_Signal  +  Prev_Input)  + 

(c2  *  Prev_Output) 

Prev_Input  :=  Input_Signal; 

PrevOutput  :=  X; 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 
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3. 3. 6. 6. 9. 7.1  REQUIREMENTS  ALLOCATION 
R162 


3. 3. 6. 6. 9. 7. 2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 6.6. 9. 7. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description 

|  Signal  Type 
! 

|  Coefficient  Type 

1 

generic  float 

generic  float 

Defines  data  type  for  incoming! 

signals  to  filter.  [ 

Defines  data  type  for  defining! 
filter  coefficients.  j 

Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part: 

|  Name 

Type 

Description 

|  Initial_Previous 
|  Input_Signal 
|  Initial 
j  Coefficient  1 

|  Initial 
|  CoeffIcient_2 

Signal_Type 

Coefficient_Type 

Coefficient_Type 

Initial  value  of  previous 
input  signal. 

Initial  value  of  first  filter 
Coefficient. 

Initial  value  of  second  filter 
Coefficient. 

Subprograms : 

The  following  table  summarizes  the  generic  formal  subprograms  required  by  this 
part : 

|  Name 

Type 

Description 

|  "*» 

1 

Function 

Signal_Type  *  Coef f icient_Type | 
return  Signal  Type  j 
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3. 3. 6. 6. 9. 7. 4  LOCAL  DATA 


Data  objects: 

The  following  data  objects  are  maintained  by  this  part: 


|  Name  |  Type  j  Description 


Previous_Input_ 

Signal 

PreviousOutput 

Signal 

Coef f icient_l 
Coefficient  2 


Signal_Type 

Signal_Type 

Coef f icient_Type 
Coefficient_Type 


Value  of  signal  input  to 
filter  on  previous  pass. 
Value  of  output  signal  from 
previous  pass.  Initialized 
as  per  SRS  3.4.5.7.10.2 
Value  of  first  coefficient 
Value  of  second  coefficient 


3. 3. 6. 6. 9. 7. 5  PROCESS  CONTROL 


Not  applicable. 


3. 3. 6. 6. 9. 7. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (SIGNALPROCESSING) 
package  body  TustinLagFilter  is 


—  —  Local  Data  Object- 

Coefficient^  :  Coef ficient_Type  :=  Initial_Coef f icient_l; 

Coefficient_2  :  Coef f icient”Type  :*  Initial_Coef f icient_2; 

Previous_Input_Signal  :  Signal_Type  :«  Initial_Previous_Input_Signal; 

Previous_Output_Signal:  Signal_Type  :=  Previous  Input  Signal  * 

(  (2.0  *  Coeff icient_T)  /  (T.O  -  Coefficient_2)  ); 

end  TustinLagFilter ; 

3. 3. 6. 6. 9. 7. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 3. 6. 6. 9. 7. 8  LIMITATIONS 


None. 
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3. 3. 6. 6. 9. 7. 9  LLCSC  DESIGN 
None. 

3.3.6.6.9.7.10  UNIT  DESIGN 

3.3.6.6.9.7.10.1  UPDATE_COEFFICIENTS  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  updates  the  values  of  the  coefficients  which  were  initialized 
at  the  elaboration  of  the  instantiation. 

3.3.6.6.9.7.10.1.1  REQUIREMENTS  ALLOCATION 
R162 

3.3.6.6.9.7.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.6.9.7.10.1.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

Type 

|  Description  | 

|  Coefficient  Type| 

1  '  1 

generic  float 

j  Defines  data  type  for  incoming | 
j  coefficients. 

FORMAL  PARAMETERS: 

The  following  table 

summarizes  the 

formal  parameters  to  this  part: 

|  Name 

1  Type 

j  Description  | 

I  New  Coefficient  1 

|  Coefficient 

|  New  value  for  first  coefficient  | 

j  New_Coefficient_2 

1  Type 

j  New  value  for  second  coefficient! 

Global  parameters: 
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|  Name 

1  Type  | 

Source 

Description 

1 

|  Coefficient  1 

|  Coefficient  Type| 

Package 

Current  value 

of 

first  | 

body 

coefficient 

|  Coefficient  2 

|  Coefficient  Type| 

Package 

Current  value 

of 

second  i 

I 

1  1 

body 

coefficient 

! 

3.3.6.6.9.7.10.1.4  LOCAL  DATA 


None. 


3.3.6.6.9.7.10.1.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.6.9.7.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  UPDATECOEFFICIENTS  (NEV  C0EFFICIENT1  :  in  COEFFICIENTTYPE ; 

NEVCOEFFICIENT  2  :  in  COEFFICIENT  TYPE)  is 


begin 

Coefficient^  :■  New_Coefficient_l; 
Coefficient_2  ;■  New_Coef ficient_2; 

end  Update  Coefficients; 


3.3.6.6.9.7.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3.3.6.6.9.7.10.1.8  LIMITATIONS 


None. 


3.3.6.6.9.7.10.2  FILTER  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  performs  the  filter  operation  on  the  input  signal.  The  form 
for  this  filter  is  as  follows: 

X  :=  (cl  *  (Input_Signal  +  Prev_Input)  + 

(c2  *  (Prev  Output) 

Prevlnput  :=  Input_SignaI; 

Prev_0utput  :=  X; 
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3.3.6.6.9.7.10.2.1  REQUIREMENTS  ALLOCATION 
R162 

3.3.6.6.9.7.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.6.9.7.10.2.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

j  Description  | 

|  Signal  Type  |  generic  float 

1  "  1 
|  Coefficient  Type|  generic  float 

1  _  1 

|  Defines  data  type  for  incoming | 
i  signals.  \ 
j  Defines  data  type  for  incoming! 
j  coefficients.  j 

Subprograms : 

|  Name 

1  Type 

|  Description  | 

|  »*" 

1 

|  Function 

1 

|  Signal_Type  *  Coefficient_Type| 

1  return  Signal_Type  j 

FORMAL  PARAMETERS: 

The  following  table  summarizes  the 

formal  parameters  to  this  part: 

|  Name 

1  Type 

|  Description  | 

|  Signal 

|  Signal_Type 

|  New  value  for  input  signal.  | 

Global  parameters: 

The  following  global  data  objects  are  stored  in  the  package  body: 
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|  Name 


Type 


|  Source 


|  Description 


Previous_Input_ 

Signal 

Previous  Output 
Signal 

Coef f icient_l 
Coefficient  2 


Signal_Type 
Signal_Type 
Coeff icient_Type 
Coefficient  Type 


Package 

Package 

Package 

Package 


Body 

Body 

Body 

Body 


Value  of  input  signal  to 
previous  pass. 

Value  of  output  signal 
from  previous  pass. 
Current  value  of  first 
coefficient 

Current  value  of  second 
coefficient 


3.3.6.6.9.7.10.2.4  LOCAL  DAT/ 

Data  objects: 

The  following  data  objects  are  maintained  by  this  part: 


|  Name  | 

Type  | 

Description  | 

|  Output_Signal  | 

Signal_Type  | 

Output  from  filter  operation.  | 

3.3.6.6.9.7.10.2.5 

Not  applicable. 

PROCESS  CONTROL 

3.3.6.6.9.7.10.2.6 

PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  FILTER  (SIGNAL  :  SIGNAL_TYPE )  return  SIGNALJTYPE  is 
Output_Signal  :  Signal_Type; 
begin 

Output_Signal  :=  (  (Signal  +  Previous_Input_Signal)  *  Coef f icient_l)  + 
(  Previous_Output_Signal  *  Coeff icient_2) ; 

Previous_Input_Signal  :=  Signal; 

Previous_Output_Signal  :=  Output_Signal; 

return  Output_Signal; 


end  Filter; 
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3.3.6.6.9.7.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.6.9.7.10.2.8  LIMITATIONS 
None. 

3.3.6.6.9.7.10.3  REINITIALIZE  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  reinitializes  the  state  of  the  filter  according  to  following 
processing: 

Previous_Input_Signal  :«  Signal; 

Previous_Output_Signal  :=  Previous_Input  Signal  * 

'  “  (  (2.0  *"CoeffTcient_l)  /  (1.0  -  Coefficient_2)  ); 

3.3.6.6.9.7.10.3.1  REQUIREMENTS  ALLOCATION 
R162 

3.3.6.6.9.7.10.3.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.6.9.7.10.3.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Signal  Type 

1 

|  generic  float 

1 

|  Defines  data  type  for  incomingl 
j  reinitialization  signal  j 

FORMAL  PARAMETERS: 

The  following  table  summarizes  the  formal  parameters  to  this  part: 


|  Name 

Type 

Description 

1 

|  Signal 

Signal  Type 

Value  for  reinitializing  filter  state 

1 
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Global  parameters: 


|  Name 

Type 

Source 

|  Description 

1 

|  Previous 

Input 

Signal  Type 

Package 

|  Current  value  of 

previous  | 

]  Signal 

body 

j  input  signal 

1  Previous 

Output 

Signal  Type 

Package 

j  Current  value  of 

previous 

j  Signal 

body 

j  output  signal 

1 

3.3.6.6.9.7.10.3.4  LOCAL  DATA 


None. 


3.3.6.6.9.7.10.3.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.6.9.7.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Reinitialize  (Signal:  in  Signal_Type)  is 
begin 

Previous_Input_Signal  :«  Signal; 

Previous_Output_Signal  :* 

PreviousInputSignal  *  (  (2.0  *  Coef f icient_l)  /  (1.0  -  Coef f icient_2)  ); 
end  Reinitialize; 


3.3.6.6.9.7.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.6.9.7.10.3.8  LIMITATIONS 


None. 


3. 3. 6. 6. 9. 8  TUSTIN_LEAD_LAG_FILTER  (PACKAGE  BODY)  PACKAGE  DESIGN  (CATALOG  #P89-0) 

This  package  exports  operations  to  perform  a  Tustin  Lead  Lag  filter  operation 
on  an  input  signal.  The  package  also  allows  updating  of  the  filter 
coefficients.  The  package  initializes  the  coefficients  and  initial  filter 
state  as  part  of  the  elaboration  of  the  instantiation. 
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The  form  of  the  filter  operations  is  as  follows: 

X  :=  (  (Input_Signal  -  Prev_Input)  *  cl  )  + 

,  (  (Prev_Output  -  Prev_Input)  *  c2  )  + 

Prev_Input 

Prev_Input  :=  InpuTjSignal; 

Prev_Output  :*=  X; 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 6. 9. 8.1  REQUIREMENTS  ALLOCATION 
R161 

3. 3. 6. 6. 9. 8. 2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 6. 6. 9. 8. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name  j 

Type  | 

Description  | 

|  Signal  Type  | 

i  1 

|  Coefficient  Type| 

!  ~  1 

generic  float  | 

1 

generic  float 

1 

Defines  data  type  for  incoming! 

signals  to  filter.  j 

Defines  data  type  for  defining! 
filter  coefficients.  j 

Data  objects: 

The  following  table 
part: 

summarizes  the  generic  formal  objects  required  by 

|  Name  | 

Type  | 

Description  j 

|  Initial  Previous | 
j  Input  Signal  j 

j  Initial_  1 

Coef f icient_l  j 
j  Initial 

j  Coefficient  2  j 

Signal_Type  | 

Coef ficient_Type | 

Coefficient  Typej 

Initial  value  of  previous  | 

input  signal. 

Initial  value  of  first  filter  j 
Coefficient.  j 

Initial  value  of  second  filterj 
Coefficient.  j 
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Subprograms: 

The  following  table  summarizes  the  generic  formal  subprograms  required  by  this 
part: 


|  Name 

Type 

Description  | 

|  «*« 

1 

Function 

Signal_Type  *  Coefficient  Type| 
return  Signal_Type 

3. 3. 6. 6. 9. 8. 4  LOCAL  DATA 

Data  objects: 

The  following  data  objects  are  maintained  by  this  part: 

|  Name 

Type 

Description  | 

|  Previous_Input_ 
Signal 

j  Previous_Output_ 
j  Signal 

j  Coefficient^ 

|  Coefficient_2 

SignalType 

Signal_Type 

Coefficient_Type 

Coefficient_Type 

Value  of  signal  input  to 
filter  on  previous  pass. 

Value  of  output  signal  from 
previous  pass. 

Value  of  first  coefficient 

Value  of  second  coefficient 

3. 3. 6. 6. 9. 8. 5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 6. 9. 8. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (SIGNAL_PROCESSING) 
package  body  Tustin_Lead_Lag_Filter  is 


—  —  Local  Data  Object- 


Previous_Input_Signal  :  Signal_Type  :=  Initial_Previous_Input_Signal; 
Previous_Output_Signal:  Signal_Type  :=  Initial_Previous_Input_Signal; 

Coef f icient_l  :  Coef ficient_Type  :=  Initial  Coef f icient_l ; 

Coef f icient_2  :  Coef f icient_Type  :=  Initial~Coefficient_2; 

end  Tustin_Lead_Lag_Filter ; 
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3. 3. 6. 6. 9. 8. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 3. 6. 6. 9. 8. 8  LIMITATIONS 
None. 

3. 3. 6. 6. 9. 8. 9  LLCSC  DESIGN 
None. 

3.3.6.6.9.8.10  UNIT  DESIGN 

3.3.6.6.9.8.10.1  UPDATECOEFFICIENTS  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  updates  the  values  of  the  coefficients  which  were  initialized 
at  the  elaboration  of  the  instantiation. 

3.3.6.6.9.8.10.1.1  REQUIREMENTS  ALLOCATION 
R161 

*2U. 

Ca 

w  3.3.6.6.9.8.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.6.9.8.10.1.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  sunimarizes  the  generic  formal  types  required  by  this  part: 


|  Name  j 

Type 

|  Description  | 

|  Coefficient  Type| 

1  "  1 

generic  float 

|  Defines  data  type  for  incoming! 
j  coefficients.  j 

|  Name 

1  Type 

|  Description  | 

|  New_Coef f icient_l 
|  New  Coefficient  2 

|  Coefficient 

1  Type 

|  New  value  for  first  coefficient  | 
j  New  value  for  second  coefficient! 

Global  parameters: 
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|  Name 

1  Type  | 

Source 

|  Description 

I 

|  Coefficient  1 

1 

|  Coefficient  Type| 

1  "  ! 

Package  Body 

|  Current  value 
|  coefficient 

of 

first  | 

1 

|  Coefficient  2 

1 

|  Coefficient  Typej 

1  "  ! 

Package  Body  j 

|  Current  value 
i  coefficient 

of 

second  j 

1 

3.3.6.6.9.8.10.1.4  LOCAL  DATA 


None. 


3.3.6.6.9.8.10.1.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.6.9.8.10.1.6  PROCESSING 


The  following  describes  the  processing  performed  by  this  part: 


procedure  UPDATECOEFFICIENTS  (NEW  COEFFICIENT^ 

NEW~C0EFFICIENT“2 


begin 


:  in  COEFFICIENTTYPE; 

:  in  COEFFICIENT  TYPE)  is 


Coefficient^  :«  NewCoefficientJL; 
Coefficient_2  :«  New_Coefficient_2; 

end  Update_Coefficients; 


3.3.6.6.9.8.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.6.9.8.10.1.8  LIMITATIONS 


None. 


3.3.6.6.9.8.10.2  FILTER  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  performs  the  filter  operation  on  the  input  signal.  The  form 
for  this  filter  is  as  follows: 

X  :=  (cl  *  (Input_Signal  -  Prev_Input)  + 

(c2  *  (Prev_Output  -  Prev_Input)  + 

Prev_Input) 

Prevlnput  :=  Input_Signal; 

PrevOutput  :=  X; 
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3.3.6.6.9.8.10.2.1  REQUIREMENTS  ALLOCATION 
R161 

3.3.6.6.9.8.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.6.9.8.10.2.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

Type 

Description  | 

|  Signal  Type  | 

1  "  1 
|  Coefficient  Type| 

1  "  1 

generic  float 

generic  float 

Defines  data  type  for  incoming! 
signals. 

Defines  data  type  for  incoming! 
coefficients.  ! 

Subprograms : 

|  Name  | 

Type 

Description  | 

1  1 

1  1 

Function 

Signal_Type  *  Coefficient_Type| 
return  Signal_Type  j 

FORMAL  PARAMETERS: 

The  following  table 

summarizes  the  formal  parameters  to  this  part: 

|  Name 

1  Type 

Description  | 

|  Signal 

|  Signal_Type 

New  value  for  input  signal.  | 

Global  parameters: 
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|  Name  {  Type  |  Source  |  Description 


Previous_Input_ 

Signal 

Previous  Output 
Signal 

Coefficient^ 
Coefficient  2 


Signal_Type 

Signal_Type 

Coef f icient_Type 
Coefficient  Type 


Package  Body 

Package  Body 

Package  Body 
Package  Body 


Value  of  input  signal  to  previous 
pass. 

Value  of  output  signal  from 
previous  pass. 

Current  value  of  first  coefficient 
Current  value  of  second  coefficient 


3.3.6.6.9.8.10.2.4  LOCAL  DATA 
None. 


3.3.6.6.9.8.10.2.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.6.9.8.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  FILTER  (SIGNAL  :  SIGNALTYPE)  return  SIGNAL  TYPE  is 
OutputSignal  :  SignalType; 
begin 

OutputSignal  :=  (  (Signal  -  Previous  Input_Signal)  *  Coefficient  1)  + 
(  (Previous_Output_STgnal  -  Previous_Input_SignaI)  * 
Coef ficient_2)  + 

Previous  Input  Signal; 

Previous_Input_Signal  :»  Signal; 

Previous_Output_Signal  :«=  Output_Signal; 

return  Output_Signal; 

end  Filter; 


3.3.6.6.9.8.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3.3.6.6.9.8.10.2.8  LIMITATIONS 
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3.3.6.6.9.8.10.3  REINITIALIZE  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  reinitializes  the  state  of  the  filter  as  follows: 

Previous_Input_Signal  :  =  Signal; 

Previous_Output_Signal  :=  Signal; 


3.3.6.6.9.8.10.3.1  REQUIREMENTS  ALLOCATION 
R161 


3.3.6.6.9.8.10.3.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.6.9.8.10.3.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Signal  Type 

1 

|  generic  float 

1 

|  Defines  data  type  for  incoming | 
j  reinitialization  signal  | 

|  Name  | 

Type  |  Description 

1 

|  Signal  |  Signal_Type  |  Value  for  reinitializing  filter  state  | 

Global  parameters: 


|  Name 

1  Type  | 

|  Source 

|  Description  | 

|  Previous 

Input 

I  Signal  Type  I 

|  Package 

|  Current  value  of  previous 

j  Signal 

|  body 

|  input  signal 

|  Previous 

Output 

|  Signal  Type  | 

Package 

j  Current  value  of  previous 

j  Signal 

1  1 

body 

output  signal 

3.3.6.6.9.8.10.3.4  LOCAL  DATA 


None. 
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3.3.6.6.9.8.10.3.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.6.9.8.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Reinitialize  (Signal  :  in  Signal_Type)  is 
begin 

Previous_Input_Signal  :■  Signal; 

Previous_Output_Signal  :■  Previous_Input_Signal; 

end  Reinitialize; 


3.3.6.6.9.8.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.6.9.8.10.3.8  LIMITATIONS 


None. 


3. 3. 6. 6. 9. 9  SECOND  ORDER  FILTER  (PACKAGE  BODY)  PACKAGE  DESIGN  (CATALOG  #P90-0) 

This  package  exports  operations  to  perform  a  Second  Order  filter  operation  on 
an  input  signal.  The  package  also  allows  updating  of  the  filter  coefficients. 
The  package  initializes  the  coefficients  and  initial  filter  state  as  part  of 
the  elaboration  of  the  instantiation. 

The  form  of  the  filter  operations  is  as  follows: 

X  :«  (cl  *  (Input_Signal  -  2nd_Prev_Input)  + 

(c2  *  (Prev_Input  -  Prev_0utput)  )  - 
(c3  *  2nd_Prev_0utput); 

2nd_Prev_Input  :=  Prev_Input; 

Prev_Input  :«  Input_Signal; 

2nd_Prev_0utput  :=  Prev_0utput; 

PrevOutput  :<=  X; 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 6. 9. 9.1  REQUIREMENTS  ALLOCATION 


R110 
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3. 3. 6. 6. 9. 9. 2  LOCAL  ENTITIES  DESIGN 

This  package  contains  a  sequence  of  statements  at  the  end  of  the  package  body 
which  are  executed  when  this  part  is  elaborated.  This  code  initializes  the 
previous  input  signal  and  coefficients.  It  also  sets  the  value  for  the 
previous  output  signal.  It  calls  Redef ine_Coef f icients  procedure  from  this 
package  to  initialize  the  values  of  the  coefficients. 


3. 3. 6. 6. 9. 9. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 

|  Name  |  Type  |  Description  | 

|  Signal_Type  ]  generic  float  |  Defines  data  type  for  incoming 

j  j  signals  to  filter, 

j  Coef f icient_Type j  generic  float  j  Defines  data  type  for  defining 

j  j  |  filter  coefficients. 

Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part: 


Name  | 

Type  | 

Description 

Initial  Previous 
Input_Signal 

Initial  Coefficient 
DefinIng_Parameter_l j 

Initial  Coefficient_ 

Def inTng_Parameter_2 j 

SignalType  j 

Coef f icient_Type j 

1 

Coe  f  f i c i en  t_Type  | 

Initial  value  of 

previous  input  signal. 

Initial  value  of  first 
defining  parameter  of 
coefficients. 

Initial  value  of  second 
defining  parameter  of 
coefficients. 

Subprograms: 

The  following  table  summarizes  the  generic  formal  subprograms  required  by  this 
part: 


|  Name 

1  Type 

j  Description  | 

j 

|  Function 

|  Signal_Type  *  Coefficient_Type| 
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3. 3. 6. 6. 9. 9. 4  LOCAL  DATA 


Data  objects: 

The  following  data  objects  are  maintained  by  this  part: 


|  Name 


Type  |  Description 


Previous_Input_ 

Signal 

Second_Previous 

InputSignal 

Previous_Output 

Signal 

Second_Previous 
Output_Signal 
Coefficient^ 
Coef f icient_2 
Coefficient  3 


Signal_Type 

Signal_Type 

Signal_Type 

Signal_Type 

Coefficient_Type 
Coef ficient_Type 
Coef f icient_Type 


Value  of  signal  input  to 
filter  on  previous  pass. 
Value  of  input  signal  on  pass 
before  previous. 

Value  of  signal  output  from 
filter  on  previous  pass. 
Value  of  output  signal  from 
filter  or.  pass  before  last. 
Value  of  first  coefficient 
Value  of  second  coefficient 
Value  of  third  coefficient 


3. 3. 6. 6. 9. 9. 5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 6. 9. 9. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (SIGNALPROCESSING) 
package  body  Second_Order_Filter  is 


—  —  Local  Data  Object- 


Previous_Input_Signal:  Signal_Type; 

Second_Previous_Input_Signal:  Signal~Type; 

Previous_Output_Signal :  Signal_Type; 

Second_Previous_Output_Signal:  Signal~Type; 

Coefficient^  :  Coefficient_Type; 

Coefficient_2  :  Coeff icient~Type; 

Coefficient^  :  Coef f icientJType; 


— begin  processing  for  package  body 


begin 

Previous_Input_Signal  :=  Initial  Previous_Input_Signal; 
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Second_Previous_Input_Signal  :=  Initial_Previous_Input_Signal; 

Previous_Output_Signal  :=  Initial_Previous_Input_Signal; 

Second_Previous_Output_Signal  :=  Initial_Previous_Input_Signal; 

Redef ine_Coef ficients  (New_Coef f icient  Defining_Parameter_l  => 

Initial_CoefIicient_Def ining_Parameter_l, 
Nev_Coeff icient  Defining_Parameter_2  => 

Ini tial_CoefIicient_Def ining_Parameter_2) ; 


end  Second_Order_Filter ; 

3. 3. 6. 6. 9. 9. 7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3. 3. 6. 6. 9. 9. 8  LIMITATIONS 


None. 


3. 3. 6. 6. 9. 9. 9  LLCSC  DESIGN 


None. 


3.3.6.6.9.9.10  UNIT  DESIGN 

3.3.6.6.9.9.10.1  REDEFINECOEFFICIENTS  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  updates  the  values  of  the  coefficients  which  were  initialized 
at  the  elaboration  of  the  instantiation. 


3.3.6.6.9.9.10.1.1  REQUIREMENTS  ALLOCATION 
Rill 


3.3.6.6.9.9.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.6.9.9.10.1.3  INPUT/OUTPUT 


GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 
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|  Name 

Type 

|  Description  | 

|  Coefficient  Type| 

1  1 

generic  float 

|  Defines  data  type  for  incoming | 
coefficients.  | 

FORMAL  PARAMETERS: 

The  following  table  summarizes  the  formal  parameters  to  this  part: 


|  Name 


Type  |  Description 


1 

New  Coefficient 

|  Coefficient 

|  New  value  for 

first  defining 

1 

1 

Defining 

1  Type 

paramter  of 

coefficients 

1 

I 

Parameter  1 

1 

1 

1 

New  Coefficient 

j  Coefficient 

New  value  for  second  defining 

1 

1 

Defining 

1  Type 

|  paramter  of 

coefficients 

1 

1 

Parameter  2 

1 

1 

1 

Global  parameters: 

1 

Name  | 

Type 

|  Description 

|  Coefficient^  |  CoefficientType 
j  Coefficient_2  j  Coefficient_Type 
I  Coefficients  j  Coefficient_Type 


Current  value  of  first  coefficient 
Current  value  of  second  coefficient 
Current  value  of  third  coefficient 


3.3.6.6.9.9.10.1.4  LOCAL  DATA 


None. 


3.3.6.6.9.9.10.1.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.6.9.9.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Redef ine_COEFFICIENTS 

(NEW  COEFFICIENT_Def ining_Parameter_l  :  in  COEFFICIENT_TYPE; 
NEW~C0EFFICIENT_Def  ining_Parameter_2  :  in  COEFFICIENT_TYPE)  is 

Coefficient  Def ining_Ratio:  Coef f icient_Type; 

begin 

Coefficient_Defining_Ratio  :=  1.0  / 

(1.0  +  NEV_C0EFFICIENT_Def  ining_Parameter_l  + 
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NEV_COEFFICIENT_Def  ining_Parameter_2) ; 

Coef f icient_l  :=  (1.0  +  New_Coef f icient_Defining_Parameter_l)  * 

Coef ficient_Def ini ng_Ratio; 

Coef f icient_2  :=  (2.0  *  (1.0  -  New_Coef ficient_Def ining_Parameter_2)  )  * 
Coef ficient_Defining_Ratio; 

Coef f icient_3  :=  (1.0  -  (NEW_COEFFICIENT_Defining_Parameter_l  + 

NEV_COEFFICIENT_Def ining_Parameter_2) )  * 

Coef f icient_Def ining_Ratio; 

end  Redefine  Coefficients; 


3.3.6.6.9.9.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3.3.6.6.9.9.10.1.8  LIMITATIONS 


None. 


3.3.6.6.9.9.10.2  FILTER  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  performs  the  filter  operation  on  the  input  signal.  The  form 
for  this  filter  is  as  follows: 

X  :■  (cl  *  (Input  Signal  -  2nd  Prev_Input)  + 

(c2  *  (PrevXnput  -  Prev  Sutput)  )  - 
(c3  *  2nd_Prev_Output) ; 

2nd_Prev_Input  Prev_Input; 

Prev_Input  :=  Input_Signal; 

2nd_Prev_0utput  Prev_Output; 

Prev_Output  :=  X; 


3.3.6.6.9.9.10.2.1  REQUIREMENTS  ALLOCATION 
R110 


3.3.6.6.9.9.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.6.9.9.10.2.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 


Data  types: 
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The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

Type 

|  Description 

1 

|  Signal  Type  | 

1 

generic  float 

|  Defines  data  type 
signals. 

for  incoming) 

1 

|  Coefficient  Type| 

I  "  1 

generic  float 

j  Defines  data  type 
coefficients. 

for  incoming | 

1 

Subprograms: 


|  Name  | 

Type 

|  Description  | 

|  «*»  | 

1  1 

Function 

|  Signal_Type  *  Coefficient  Type| 
i  return  Signal_Type  [ 

FORMAL  PARAMETERS: 

The  following  table 

summarizes  the 

formal  parameters  to  this  part: 

|  Name 

1  Type 

|  Description  ) 

|  Signal 

|  SignalType 

|  New  value  for  input  signal.  | 

Global  parameters: 


1 

Name  | 

Type  | 

Description  | 

1 

Previous  Input  | 

Signal  Type 

Value  of  input  signal  to  previous 

1 

Signal 

pass. 

1 

Second  Previous! 

Signal  Type 

Value  of  input  signal  on  pass 

1 

Input  Signal  | 

before  last. 

1 

Previous  Output j 

Signal  Type  ! 

Value  of  output  signal  from 

1 

Signal 

previous  pass. 

1 

Second  Previous  j 

Signal  Type  j 

Value  of  output  signal  from 

I 

Output  Signalj 

pass  before  last. 

1 

Coefficient  1  j 

Coefficient  Typej 

Current  value  of  first  coefficient 

1 

Coefficient  2  j 

Coefficient~Type| 

Current  value  of  second  coefficient 

1 

Coef f icient_3  j 

Coefficient~Type| 

Current  value  of  third  coefficient 

3 

3.6.6.9.9.10.2.4 

LOCAL  DATA 

None. 
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3.3.6.6.9.9.10.2.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.6.9.9.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  FILTER  (SIGNAL  :  SIGNAL_TYPE)  return  SIGNAL_TYPE  is 
Output_Signal  :  Signal_Type  :«  0.0; 
begin 

Output_Signal  (  (Signal  -  Second_Previous_Input_Signal)  * 

Coef ficient_l)  + 

(  (Previous_Input_Signal  -  Previous_Output  Signal)  * 

Coefficient  2)  - 

(  Second_Previous_Output_Signal  *  Coeff icient_3) ; 

Second_Previous_Input_Signal  Previous_Input_Signal; 

Previous_Input_Signal  :«  Signal; 

SecondPreviousOutputSignal  Previous  Output_Signal; 
PreviousOutputSignal  Out put  Signal; 

return  Out put  Signal; 

end  Filter; 


3.3.6.6.9.9.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.6.9.9.10.2.8  LIMITATIONS 


None. 


3.3.6.6.9.9.10.3  REINITIALIZE  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  reinitializes  the  state  of  the  filter  by  the  following 
processing: 

Previous_Input_Signal  :■  Initial_Previous_Input_Signal; 

Second_Previous_Input_Signal  Initial_Previous_Input~Signal; 

Previous_Output_Signal  :=  Initial_Previous_Input_Signal; 

Second_Previous_Output_Signal  :=  Initial_Previous_Input_Signal; 
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3.2.6.6.9.9.10.3.1  REQUIREMENTS  ALLOCATION 


Rill 


3.3.6.6.9.9.10.3.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.6.9.9.10.3.3  INPUT/OUTPUT 


GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Signal  Type 

1 

|  generic  float 

1 

|  Defines  data  type  for  incoming! 

|  reinitialization  signal  i 

FORMAL  PARAMETERS: 

The  following  table  summarizes  the  formal  parameters  to  this  part: 


|  Name  |  Type  |  Description 

1 

|  Signal  |  Signal_Type  |  Value 

for  reinitializing  filter  state  | 

Global  parameters: 

|  Name  | 

Type 

|  Source  | 

|  Description  | 

|  Previous_Input_  | 
Signal  | 

Signal_Type 

|  Package  | 
j  body  ! 

Current  value  of  previous  | 
i  input  signal  j 

|  Previous_Output  j 
j  Signal  | 

Signal_Type 

j  Package 
body 

Current  value  of  previous  j 
i  output  signal 

3.3.6.6.9.9.10.3.4  LOCAL  DATA 


None. 


3.3.6.6.9.9.10.3.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.6.6.9.9.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Reinitialize  (Signal  :  in  Signal_Type)  is 
begin 

Previous  Input_Signal  :=  Signal; 

Second_Previous_Input_Signal  :=  Signal; 

Previous_Output_Signal  :=  Signal; 

Second_Previous_Output_Signal  :*  Signal; 

end  Reinitialize; 


3.3.6.6.9.9.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.6.9.9.10.3.8  LIMITATIONS 


None. 


3.3.6.6.9.10  TUSTININTEGRATORWITH  LIMIT  (PACKAGE  BODY)  PACKAGE  DESIGN  (CATALOG 
#P91-0) 

This  package  exports  operations  to  perform  a  Tustin  Integrator  operation  on  an 
input  signal.  The  form  of  the  integration  will  be:  Y  -  Y  prev  +  (X  +  X_prev) 

*  gain  *  0.5  *  integration_time_interval. 

The  package  will  set  a  flag  when  the  result  of  the  integration  reaches  an 
established  limit  and  will  not  perform  further  integration  if  the  next 
integration  will  not  move  the  current  state  below  the  limit.  The  package  also 
allows  updating  of  the  gain  on  the  input  signal  and  limit  and  reading  of  the 
flag  setting.  The  package  initializes  the  gain,  limit  and  initial  integrator 
state  as  part  of  the  elaboration  of  the  instantiation. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3.3.6.6.9.10.1  REQUIREMENTS  ALLOCATION 
R203 


3.3.6.6.9.10.2  LOCAL  ENTITIES  DESIGN 
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Name 

Local_Integrate 
Local  Limit 


Type 

Package 

Package 


|  Description 


Instantiated  from  General  Math| 
Parts  to  perform  integration) 
Instantiated  from  Absolute  j 
Limit_With_Flag  to  perform  j 
limit  and  clamp  operation  | 


3.3.6.6.9.10.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


Name 

1  Type 

|  Description 

Signals 

|  generic  float 

1 

|  Defines  data  type  for  incoming 
j  signals  to  integrator. 

States 

|  generic  float 

1 

j  Defines  data  type  for  signals 
j  output  from  integrator 

Gained_Signals 

|  generic  float 

j  Defines  data  type  for  incoming 
i  signal  after  gain  applied 

Gains 

j  generic  float 

j  Defines  data  type  for  gains 

Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part: 


|  Name 

1  Type 

|  Description  | 

I  Initial  Signal 

|  Signals 

|  Initial  value  of  input  signal  | 

j  Level 

j  for  first  pass. 

1  Initial  Output 

j  States 

j  Initial  values  of  output 

1  Level 

signal  after  first  pass. 

j  Initial  Signal 

j  States 

|  Initial  value  of  limit  j 

Limit 

j  on  integrator  output.  j 

|  Initial  Time 

j  Times 

j  Initial  value  of  time  interval! 

j  Inteval 

j  for  integration 

j  Initial 

j  Gains 

j  Initial  value  of  gain  used  in  j 

j  Tustin  Gain 

j  Tustin  integration  i 

Subprograms: 

The  following  table  summarizes  the  generic  formal  subprograms  required  by  this 
part: 
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Name 

1  Type 

|  Description  | 

"  *  " 

1 

|  "*« 

1 

|  Function 

1 

|  Function 

|  Signals  *  Gains  1 

I  return  Gained  Signals  j 
j  Gained_Signals  *  States  j 
|  return  States  j 

Global  parameters 

: 

Data  types: 

|  Name 

|  Source  |  Type 

|  Description  | 

|  Limit  Relations 

! 

1 

|  Package  | Enumer- 
jspec.  j  ation 

1  1 

|  Establishes  the  relationship  | 

[  between  a  signal  and  the  ! 

|  limit  imposed  on  that  signal j 

3.3.6.6.9.10.4  LOCAL  DATA 


Data  objects: 

The  following  data  objects  are  maintained  by  this  part: 


|  Name  |  Type  |  Description  | 


|  Previous  Gained  |  Signals 

Value  of  signal  input  to  1 

j  Input 

filter  on  previous  pass  withj 

1  I 

gain  applied.  j 

|  Previous  Output  |  States 

Value  of  output  signal  from  I 

!  Signal  j 

previous  pass.  j 

j  Signal  Gain  j  Gains 

Value  of  gain  applied  to  ! 

input  signal.  j 

3.3.6.6.9.10.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.6.9.10.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

with  General_Purpose_Math; 
separate  (SIGNAL_PROCESSING) 

package  body  Tustin_Integrator_Vith_Limit  is 


—  local  entities 
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package  Local_Limit  is  new  Signal_Processing. Absolute_Limiter_With_Flag 
(Signal_Type  =>  States, 

Initial_Absolute_Limit  =>  Ini tial_Signal_Limit) ; 


—  —  Local  Data  Object- 

:  Gains  :=  Initial_Tustin_Gain; 

:  Gained_Signals  :=* 

Initial_Signal_Level  *  Signal_Gain; 

:  States  :  = 

Local_Limit. Limit  (Initial_State); 

—  —  local  entities 


Signal_Gain 

Previous_Gained_Input 

Previous_Output_Signal 


package  Local_Integrator  is  new  General  Purpose_Math. Integrator 
(Dependent_Type  States, 

Independent_Type  »>  Gained_Signals, 

Time  Interval  ■>  States, 

InitTal_Dependent_Value  »>  Previous_Output  Signal, 

Initial_Independent_Value  ->  Previous_Gained™Input, 

DefaultDeltaTime  »>  1.0, 

“  _> 


end  Tustin_Integrator_With_Limit ; 


3.3.6.6.9.10.7  UTILIZATION  OF  OTHER  ELEMENTS 

The  following  library  units  are  with'd  by  this  parts 
1.  General_Purpose_Math 

UTILIZATION  OF  EXTERNAL  ELEMENTS: 

Packages : 

The  following  table  summarizes  the  external  packages  required  by  this  part: 


|  Name 

1  Type 

|  Source  | 

|  Description  | 

|  Integrator 

|  Generic  | 

|  General  Purpose  Math  | 

Performs  Integrate  | 

1 

j  Package  | 

1  1 

operations. 

UTILIZATION  OF  OTHER  TLC  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  units  from  the  top  level  component. 
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Packages: 

The  following  table  summarizes  the  TLC  packages  required  by  this  part: 


|  Name 

1  Type 

Description  | 

|  Absolute  Limiter 
j  with  Flag 

|  Generic 
|  Package 

Performs  limit  operation  on  | 

integrator  output.  | 

3.3.6.6.9.10.8  LIMITATIONS 


None. 


3.3.6.6.9.10.9  LLCSC  DESIGN 
None. 


3.3.6.6.9.10.10  UNIT  DESIGN 

3.3.6.6.9.10.10.1  UPDATELIMIT  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  updates  the  limit  on  the  integrator  output  as  initialized  at 
the  elaboration  of  the  instantiation.  It  does  this  by  calling  the  UpdateLimit 
function  of  the  Local_Limit  package. 


3.3.6.6.9.10.10.1.1  REQUIREMENTS  ALLOCATION 
R203 


3.3.6.6.9.10.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.6.9.10.10.1.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  States 

1 

|  generic  float 

1 

|  Defines  data  type  for  limit  | 
j  on  output  signal. 

CAMP  Software  Detailed  Design  Document 


Page  1288 


FORMAL  PARAMETERS: 

The  following  table  summarizes  the  formal  parameters  to  this  part: 


|  Name  |  Type  |  Description 


|  New_Absolute_Limi t |  Output_Type  |  New  value  for  absolute  limit 


3.3.6.6.9.10.10.1.4  LOCAL  DATA 
None. 

3.3.6.6.9.10.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.6.9.10.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  UpdateLimit  (Nev_Absolute_Limit:  in  States)  is 
begin 

Local_Limit.Update_Limit  (Nev_Absolute_Limit  ->  Nev_Absolute_Limit) ; 
end  Update_Limit; 

3.3.6.6.9.10.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.6.9.10.10.1.8  LIMITATIONS 
None. 

3.3.6.6.9.10.10.2  UPDATE_GAIN  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  updates  the  gain  to  applied  applied  to  the  input  signal  prior 
to  the  integration  operation. 

3.3.6.6.9.10.10.2.1  REQUIREMENTS  ALLOCATION 


R203 
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3.3.6.6.9.10.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.6.9.10.10.2.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name  j 

Type 

|  Description  | 

|  Gains  ! 

1  1 

generic  float 

|  Defines  data  type  for  gains  ! 

|  to  input  signal.  i 

FORMAL  PARAMETERS: 

The  following  table 

summarizes  the 

formal  parameters  to  this  part: 

|  Name 

1  Type 

|  Description  | 

|  Nev_Gain 

|  Gains 

|  Nev  value  for  gain  | 

Global  parameters: 


|  Name 

Type  |  Source 

Description  | 

|  Signal_Gain 

Gains | Pack,  body 

Current  value  of  gain  | 

3.3.6.6.9.10.10.2.4  LOCAL  DATA 
None. 

3.3.6.6.9.10.10.2.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.6.9.10.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Update_Gain  (Nev_Gain:  in  Gains)  is 
begin 
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Signal_Gain  :=  New_Gain; 
end  Update_Gain; 


3.3.6.6.9.10.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3.3.6.6.9.10.10.2.8  LIMITATIONS 


None. 


3.3.6.6.9.10.10.3  INTEGRATE  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  performs  the  integrator  operation  on  the  input  signal.  The 
form  of  this  integration  is: 

If  Prev_0utput  within  limit  then 
Output  Prev_0utput  + 

(Input_Signal  +  Prev_Input)  *  Gain  *  Time_Interval/2; 

Limit  Output  and  set  flag  if  appropriate 
Elsif  Prev  Output  at  positive  limit  and 
Integration  forces  output  below  limit  then 
Output  :•  Prev_Output  + 

(InputSignal  +  Prevlnput)  *  Gain  *  Time_Interval/2; 

Elsif  Prev  Output  at  negative  limit  and 
Integration  forces  output  above  limit  then 
Output  Prev_Output  + 

(Input_Signal  +  Prev_Input)  *  Gain  *  Time_Interval/2; 

Prevlnput  InputSignal  *  Gain; 

Prev_0utput  :-  Output; 


3.3.6.6.9.10.10.3.1  REQUIREMENTS  ALLOCATION 
R203 


3.3.6.6.9.10.10.3.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.6.9.10.10.3.3  INPUT/OUTPUT 


GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 
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|  Name  | 

Type 

|  Description  | 

|  Signals  | 

1 

|  States 

1 

|  Gained  Signals  | 

1 

generic  float 

generic  float 

generic  float 

|  Defines  data  type  for  incoming | 
signals.  { 

|  Defines  data  type  for  output 
j  from  integrator.  j 

|  Defines  data  type  for  inter-  | 
j  mediate  result  from  applying) 

i  gain  to  input  signal  | 

Subprograms: 

|  Name  | 

Type 

|  Description  | 

|  »*»  | 

1  1 

Function 

|  Signals  *  Coef ficient_Type  | 

!  return  Signal  Type  j 

FORMAL  PARAMETERS: 

The  following  table  summarizes  the 

formal  parameters,  to  this  part: 

|  Name 

1  Type 

|  Description  | 

|  Signal 

|  Signals 

|  New  value  for  input  signal.  | 

3.3.6.6.9.10.10.3.4 

LOCAL  DATA 

None. 

3.3.6.6.9.10.10.3.5 

PROCESS  CONTROL 

Not  applicable. 

3.3.6.6.9.10.10.3.6 

PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Integrate  (Signal  :  Signals)  return  States  is 

New_Gained_Signal  :  Gained_Signals  :=  Signal  *  Signal_Gain; 

New  Gained_Total  :  Gained_Signals  := 

New  Gained  Signal  +  Previous_Gained_Input ; 
Output_Signal  :  States; 

begin 

if  within  limit  or 
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xi 

(beyond  limit  and  new  input  brings  output  within  limit)  then 
integrate  new  output 


(Local_Limit.Limit_Flag_Setting  =  Within  Limit  or  else 
(Local_Limit.Limit_Flag_Setting  =  At_Positive_Limit  and  then 
New_Gained  Total  <  0.0)  or  else 
(Local_Limit.Llmit_Flag_Setting  =  At_Negative_Limit  and  then 
New_Gained_Total  >  0.0)  ) 

then 

Output_Signal  :=  Local_Integrator. Integrate  (New  Gained_Signal) ; 
Output_Signal  :=  Local_Limit. Limit  (Output_SignaI) ; 

if  Local_Limit.Limit_Flag_Setting  /■  Within_Limit  then 

Reset  (Integrator_State  =»>  Output  Signal, 

Signal  =>  SignalT; 


end  if; 

Previous_Output_Signal  :»  Output_Signal; 
else 

OutputSignal  :»  PreviousOutputSignal; 

Locallntegra tor. Update 

(CurrentlndependentValue  ->  NewGainedSignal); 


end  if; 


Previous_Gained_Input  :*  New_Gained_Signal; 
return  Output_Signal; 
end  Integrate; 


3.3.6.6.9.10.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.6.9.10.10.3.8  LIMITATIONS 
None. 


3.3.6.6.9.10.10.4  RESET  ( INTEGRATOR_STATE )  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  procedure  calls  the  Local_Integrator. Reinitialize  procedure  to 
reinitialize  to  integrator  state. 
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3.3-6.6.9.10.10.4.1  REQUIREMENTS  ALLOCATION 
R203 

3.3.6.6.9.10.10.4.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.6.9.10.10.4.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 


The  folloving  table 

describes 

this  part's 

formal  parameters: 

|  Name 

1  Type 

|  Mode  | 

Description  | 

|  Integrator  State  | 
1 

|  States 

1  In  | 

1  1 

Unlimited  value  of  nev  | 

integrator  state  j 

|  Signal 

1  1 

Signals 

|  In  I 

1  1 

Nev  value  of  previous  input  | 

|  signal  j 

3.3.6.6.9.10.10.4.4  LOCAL  DATA 
Data  objects: 

The  folloving  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type  | 

|  Description  | 

|  Limited_State 

|  States  i 

|  State  after  local  limit  is  applied  | 

3.3.6.6.9.10.10.4.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.6.9.10.10.4.6  PROCESSING 

The  folloving  describes  the  processing  performed  by  this  part: 

procedure  Reset  (Integrator_State  :  in  States; 

Signal  :  in  Signals)  is 

Limited_State:  States  :=  Local_Limit. Limit  (Integrator_State) ; 

begin 

Previous_Gained_Input  :=  Signal  *  Signal_Gain; 
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/ 

Locallntegra tor. Reinitialize 

(Initial_Dependent_Value  =>  Integrator_State, 

Ini tial_Independent_Value  =>  Previous_Gained  Input); 


end  Reset; 


3.3.6.6.9.10.10.4.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  elsewhere  in  the  parent  top  level  component: 


|  Name  | 

1  Type  | 

|  Source 

|  Description  | 

|  Reinitialize  | 
1  1 

Procedure 

|  Local_Integrator 

|  Reinitializatiof  of 
integrator  state 

Data  types: 

The  following  table  summarizes  the  TLC  types  required  by  this  part: 


|  Name 

1  Type 

|  Source 

|  Description  | 

|  States 

|  Generic  float 

|  Package  Spec 

|  State  of  integrator 

j  Signals 

|  Generic  float 

|  Package  Spec 

|  Represents  type  of  j 

1 

1 

input  to  integrator  | 

I 


3.3.6.6.9.10.10.4.8  LIMITATIONS 


None. 


3.3.6.6.9.10.10.5  LIMIT_FLAG_SETTING  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  procedure  calls  the  Local_Limit. Limit  Flag_Setting  function  to  return  the 
relation  of  the  current  output  signal  to  tHe  limit. 


3.3.6.6.9.10.10.5.1  REQUIREMENTS  ALLOCATION 


R203 


( 
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3.3.6.6.9.10.10.5.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.6.9.10.10.5.3  INPUT/OUTPUT 
None. 

3.3.6.6.9.10.10.5.4  LOCAL  DATA 
None. 

3.3.6.6.9.10.10.5.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.6.9.10.10.5.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  LimitFlagSetting  return  Limit_Relations  is 
begin 

return  (Local_Limi t . Limi t_Flag_Set ting) ; 
end  LimitFlagSetting; 

3.3.6.6.9.10.10.5.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.6.9.10.10.5.8  LIMITATIONS 


None. 


3.3.6.6.9.11  TDSTJN  INTF.GRATOR_WITH_ASYMMETRIC  LIMIT  (PACKAGE  BODY)  PACKAGE  DESIGN 
(CATALOG  IP1054-0) 

This  package  exports  operations  to  perform  a  Tustin  Integrator  operation  on  an 
input  signal.  The  form  of  the  integration  will  be:  Y  -  Y_prev  +  (X  +  X_prev) 

*  gain  *  0.5  *  int^gration_time_interval. 

The  package  will  set  a  flag  when  the  result  of  the  integration  reaches  an 
established  limit  and  will  not  perform  further  integration  if  the  next 
integration  will  not  move  the  current  state  below  the  limit.  The  package  also 
allows  updating  of  the  gain  on  the  input  signal  and  limit  and  reading  of  the 
flag  setting.  The  package  initializes  the  gain,  limits  and  initial  integrator 
state  as  part  of  the  elaboration  of  the  instantiation. 
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The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3.3.6.6.9.11.1  REQUIREMENTS  ALLOCATION 
N/A 


3.3.6.6.9.11.2  LOCAL  ENTITIES  DESIGN 


|  Name  | 

Type 

|  Description  | 

|  Local  Integrate  | 
1  1 

Package 

|  Instantiated  from  General  Math| 
Parts  to  perform  integration! 

|  Local  Limit  1 

1  "  1 

Package 

j  Instantiated  from  Upper_Lower  j 
Limiter  to  perform  limiting  j 

3.3.6.6.9.11.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description 

|  Signals 

|  generic  float 

1 

|  Defines  data  type  for  incoming 
signals  to  integrator. 

j  States 

|  generic  float 

1 

|  Defines  data  type  for  signals 
output  from  integrator 

j  Gained_Signals 

|  generic  float 

1 

j  Defines  data  type  for  incoming 

1  signal  after  gain  applied 

j  Gains 

|  generic  float 

j  Defines  data  type  for  gains 

Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part: 
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1 

Name 

1  Type 

|  Description  | 

1 

Initial  Signal 

j  Signals 

|  Initial  value  of  input  signal 

1 

Level 

|  for  first  pass. 

1 

Initial  Output 

j  States 

j  Initial  values  of  output 

1 

Level 

signal  after  first  pass. 

1 

Initial  Signal 

j  States 

j  Initial  value  of  lower  limit 

1 

Lower  Limit 

on  integrator  output. 

1 

Initial  Signal 

j  States 

j  Initial  value  of  upper  limit 

1 

Upper  Limit 

I  on  integrator  output. 

1 

Initial 

j  Gains 

j  Initial  value  of  gain  used  in 

! 

Tustin  Gain 

I  Tustin  integration 

Subprograms: 

The  following  table  summarizes  the  generic  formal  subprograms  required  by  this 
part: 


|  Name 

1  Type 

Description  | 

|  «*« 

|  Function 

Signals  *  Gains 

1 

1 

return  Gained  Signals 

j 

|  Function 

Gained  Signals  *  States 

1 

1 

return  States 

Global  parameters: 
Data  types: 


|  Name  |  Source 

1  Type 

|  Description  | 

|  Limit' Relations! Package 

| Enumer- 

|  Establishes  the  relationship 

j  1  Spec. 

j  ation 

i  between  a  signal  and  the 

1  1 

1 

limit  imposed  on  that  signal 

3.3.6.6.9.11.4  LOCAL  DATA 
Data  objects: 

The  following  data  objects  are  maintained  by  this  part: 
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1 

Name 

Type 

1 

Description 

1 

Previous  Gained 

Signals 

1 

Value  of  signal  input  to 

Input 

1 

filter  on  previous  pass  with 

1 

1 

gain  applied. 

1 

Previous  Output 

States 

1 

Value  of  output  signal  from 

1 

Signal 

1 

previous  pass. 

! 

Signal  Gain 

Gains 

Value  of  gain  applied  to 

1 

1 

input  signal. 

1 

Local  Limit 

Limit  Relations 

1 

Current  state  of  the 

1 

Flag  Setting 

1 

1 

limited  integrator  state 

i 

1 

Local  Lower 

States 

1 

Local  copy  of  the  limiter's 

1 

1 

Limit 

1 

| 

lower  limit 

1 

Local  Upper 

States 

1 

1 

Local  copy  of  the  limiter's 

1 

Limit 

1 

upper  limit 

3.3.6.6.9.11.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.6.9.11.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

with  General  Purpose_Math; 
separate  (SIGNALPROCESSING) 

package  body  Tustin_Integrator_Vith_Asymraetric_Limit  is 
—  —  local  entities 


package  Local  Limit  is  new  Signal_Processing.Upper_Lower_Limiter 
(Signal  Type  ->  States, 

InitiaI_Lower_Limit  ->  Initial_Signal_Lower_Limit, 
Initial_Upper~Limit  ->  Initial_Signal~Upper~Limit) ; 


—  —  Local  Data  Objects- 


Signal  Gain 


Gains 


:  =  Initial  Tustin  Gain; 


Previous_Gained_Input  :  Gained_Signals  := 

Initial_Signal_Level  *  Signal_Gain; 

Previous_Output_Signal  :  States 

Local_Limit. Limit  (Initial_State); 

Local  Limit  Flag  Setting  :  Limit  Relations  :  =  Within  Limit; 
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Local_Lower_Limi t  :  States  :=  Initial_Signal_Lower_Limit; 

Local_Upper_Limit  :  States  :=  Initial~Signal_Upper_Limit; 


—  —  local  entities 


package  Local_Integrator  is  new  General_Purpose_Math. Integrator 
(Dependent_Type  =>  States, 

Independent_Type  =>  Gained_Signals, 

Time  Interval  =»>  States, 

InitTal_Dependent_Value  =>  Previous_Output_Signal, 

Initial_Independent_Value  *■>  Previous_Gained  Input, 

Default_Delta_Time  ->  1.0); 

end  Tus  t  i n_In  t egr a t or_W i  t h_Asymme t r i c_Li mi  t ; 


3.3.6.6.9.11.7  UTILIZATION  OF  OTHER  ELEMENTS 

The  following  library  units  are  with'd  by  this  part: 

1.  General_Purpose_Math 

UTILIZATION  OF  EXTERNAL  ELEMENTS: 

Packages : 

The  following  table  summarizes  the  external  packages  required  by  this  part: 


|  Name 

1  Type  | 

|  Source  | 

|  Description  | 

|  Integrator 

|  Generic  | 

General  Purpose  Math  | 

Performs  Integrate  | 

1  1 

|  Package  j 

operations.  1 

UTILIZATION  OF  OTHER  TLC  ELEMENTS: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined  in  one 
or  more  units  from  the  top  level  component. 

Packages:  The  following  table  summarizes  the  TLC  packages  required  by  this 
part: 


|  Name  |  Type  | 

Description 

1 

|  UpperLower  Limiter|  Generic  | 
■  |  Package  j 

Performs  limit  operation  on 
integrator  output. 
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3.3.6.6.9.11.8  LIMITATIONS 


None. 


3  3.6.6.9.11.9  LLCSC  DESIGN 
None. 


3.3.6.6.9.11.10  UNIT  DESIGN 

3.3.6.6.9.11.10.1  UPDATE_LIMITS  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  updates  the  limits  on  the  integrator  output  as  initialized  at 
the  elaboration  of  the  instantiation.  It  does  this  by  calling  the  Update_Limit 
function  of  the  Local  Limit  package. 


3.3.6.6.9.11.10.1.1  REQUIREMENTS  ALLOCATION 
N/A 


73.3.6.6.9.11.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.6.9.11.10.1.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

Type 

|  Description  | 

States  | 

1 

generic  float 

|  Defines  data  type  for  limit  j 
|  on  output  signal.  j 

FORMAL  PARAMETERS: 

The  following  table 

summarizes  the 

formal  parameters  to  this  part: 

j  Name 

1  Type 

|  Description  | 

j  New_Upper_Limit 
j  New_Lower_Limi t 

t  Output_Type 
j  Output_Type 

|  New  value  for  upper  limit  i 

|  New  value  for  lower  limit  j 
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3.3.6.6.9.11.10.1.4  LOCAL  DATA 


None. 


3.3.6.6.9.11.10.1.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.6.9.11.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Update_Limits  (Nev_Lover_Limit:  in  States; 

Nev~Upper~Limit:  in  States)  is 


begin 

Local_Limit.Update_Limits  (Nev_Lover_Limit  ->  Nev_Lover_Limit, 

Nev_Upper_Limit  ->  Nev_Upper_Limit) ; 

Local_Lower_Limi t  New_Lower_Limlt; 

Local_Upper_Limi  t  New_Upper~Limlt; 

end  UpdateLimits; 


3.3.6.6.9.11.10.1.7  UTILIZATION  OP  OTHER  ELEMENTS 
None. 


3.3.6.6.9.11.10.1.8  LIMITATIONS 


None. 


3.3.6.6.9.11.10.2  UPDATE_GAIN  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  updates  the  gain  to  applied  applied  to  the  input  signal  prior 
to  the  integration  operation. 


3.3.6.6.9.11.10.2.1  REQUIREMENTS  ALLOCATION 
N/A 


3.3.6.6.9.11.10.2.2  LOCAL  ENTITIES  DESIGN 


None. 
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3.3.6.6.9.11.10.2.3  INPUT/OUTPUT 


GENERIC  PARAMETERS: 


Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Gains 

1 

|  generic  float 

1 

j  Defines  data  type  for  gains  | 

1  to  input  signal.  j 

FORMAL  PARAMETERS: 


The  following 

table  summarizes  the 

formal  parameters  to  this  part: 

|  Name 

1  Type 

|  Description  | 

|  New  Gain 

|  Gains 

|  New  value  for  gain  | 

Global  parameters: 


|  Name 

Type  |  Source 

Description  | 

|  Signal_Gain 

Gainsj Pack,  body 

Current  value  of  gain  | 

3.3.6.6.9.11.10.2.4  LOCAL  DATA 
None. 

3.3.6.6.9.11.10.2.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.6.9.11.10.2.6  PROCESSING 

The  following  describ»s  the  processing  performed  by  this  part: 
procedure  UPDiTE_Gain  (Nev_Gain:  in  Gains)  is 
begin 

Signal_Gain  :=  Nev_Gain; 


end  Update  Gain; 
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3.3.6.6.9.11.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3.3.6.6.9.11.10.2.8  LIMITATIONS 


None. 


3.3.6.6.9.11.10.3  INTEGRATE  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  subprogram  performs  the  integrator  operation  on  the  input  signal.  The 
form  of  this  integration  is: 

If  Prev_Output  within  limit  then 
Output  :=  Prev_Output  + 

(Input_Signal  +  Prev_Input)  *  Gain  *  ?ime_Interval/2; 

Limit  Output  and  set  flag  if  appropriate 
Elsif  Prev  Output  at  positive  limit  and 
Integration  forces  output  below  limit  then 
Output  Prev_Output  + 

(Input_Signal  +  Prev_Input)  *  Gain  *  Time_Interval/2; 

Elsif  Prev  Output  at  negative  limit  and 
Integration  forces  output  above  limit  then 
Output  :■  Prev_Output  + 

(InputSignal  +**Prev_Input)  *  Gain  *  Time_Interval/2; 

Prevlnput  :■  InputSignal  *  Gain; 

Prev^Output  :-  Output; 


3.3.6.6.9.11.10.3.1  REQUIREMENTS  ALLOCATION 
N/A 


3.3.6.6.9.11.10  2  LOCAL  ENTITIES  DESIGN 

None. 

3. 3. 6. 6. 9.1  NPUT/0UTPUT 

GENERIC  PARAMfcliv 
Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 
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|  Name  | 

Type 

|  Description  | 

|  Signals  i 

1  1 

|  States  | 

1  i 

|  Gained  Signals 

I 

generic  float 

generic  float 

generic  float 

|  Defines  data  type  for  incoming | 

[  signals.  j 

j  Defines  data  type  for  output  j 
j  from  integrator.  j 

j  Defines  data  type  for  inter- 
[  mediate  result  from  applying! 

]  gain  to  input  signal  j 

Subprograms: 

|  Name  | 

Type 

|  Description  | 

1  ! 

1  1 

Function 

|  Signals  *  Coefficient  Type 
j  return  Signal_Type 

FORMAL  PARAMETERS: 

The  following  table  summarizes  the  formal  parameters  to  this  part: 

|  Name 

1  Type 

|  Description  | 

|  Signal 

|  Signals 

|  New  value  for  input  signal.  | 

3.3.6.6.9.11.10.3.4  LOCAL  DATA 


None. 


3.3.6.6.9.11.10.3.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.6.9.11.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Integrate  (Signal  :  Signals)  return  States  is 

Nev_Gained_Signal  :  Gained_Signals  Signal  *  Signal_Gain; 
New_GainedJTotal  :  Gained_Signals 

Nev_Gained_Signal  +  Previous_Gained_Input; 
0utput_Signal  :  States? 

begin 


— if  within  limit  or 
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(beyond  limit  and  new  input  brings  output  within  limit)  then 
integrate  new  output 


(Local_Limit_Flag_Setting  =  Within  Limit  or  else 
(Local_Limit_Flag_Setting  =  At_Pos!tive_Limit  and  then 
New_Gained  Total  <  0.0)  or  else 
(Local_Limit_Flag_Setting  =  At_Negative_Limit  and  then 
New_Gained_Total  >  0.0)  ) 

then 


0utput_Signal  :=  Local_Integrator. Integrate  (New  Gained_Signal) ; 
Output_Signal  :*  Local_Limit. Limit  (0utput_SignaI) ; 

if  0utput_Signal  >»  Local_Upper_Limit  then 

Local_Limit  Flag_Setting  :*  At_Positive  Limit; 
elsif  Output  Signal  <*  Local_Lower_Limit  tKen 
Local_LimIt_Flag_Setting  At_Negative_Limit; 

else 

Local_Limit_Flag_Setting  :=  Within_Limit; 
end  if; 

if  Local_Limit_Flag_Setting  /-  Within_Limit  then 

Reset  (IntegratorState  »>  Output  Signal, 

Signal  Signal!; 


end  if; 

Previous_Output_Signal  s-  0utput_Signal; 
else 

Output_Signal  Previous_0utput_Signal; 

Local_Integrator. Update 

(Current_Independent_Value  ->  New_Gained_Signal) ; 


end  if; 


Previous_Gained_Input  New_Gained_Signal; 
return  0utput_Signal; 
end  Integrate; 


3.3.6.6.9.11.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 
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3.3.6.6.9.11.10.3.8  LIMITATIONS 


None. 


3.3.6.6.9.11.10.4  RESET  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  procedure  calls  the  Local_Integrator .Reinitialize  procedure  to 
reinitialize  the  integrator  state. 


3.3.6.6.9.11.10.4.1  REQUIREMENTS  ALLOCATION 
N/A 


3.3.6.6.9.11.10.4.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.6.9.11.10.4.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

Type 

|  Mode 

Description  | 

|  Integrator  State 

States 

1  In 

Unlimited  value  of  new 

1 

1 

integrator  state 

j  Signal 

Signals 

1  In 

New  value  of  previous  input 

1 

1 

signal 

3.3.6.6.9.11.10.4.4  LOCAL  DATA 
Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name  | 

1  Type  1 

Description  | 

|  Limited_State  | 

|  States  | 

|  State  after  local  limit  is  applied  | 

3.3.6.6.9.11.10.4.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.6.6.9.11.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Reset  (Integrator_State  :  in  States; 

Signal  :  in  Signals)  is 

Limi tedState:  States  :=  Local  Limit. Limit  (Integrator  State); 

begin 

Previous_Gained_Input  :»  Signal  *  Signal_Gain; 

Local_Integrator. Reinitialize 

(Initial_Dependent_Value  *>  Integrator_State, 
Initial_Independent_Value  «>  Previous_Gained_Input); 


end  Reset; 


3.3.6.6.9.11.10.4.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part  and  defined  elsewhere  in  the  parent  top  level  component: 


|  Name 

Type 

Source  |  Description  | 

|  Reinitialize 

1 

Procedure 

Local_Integrator  |  Reinitializatiof  of  | 

|  integrator  state  j 

Data  types: 

The  following  table  summarizes  the  TLC  types  required  by  this  part: 


|  Name 

1  Type 

|  Source 

I  Description  | 

|  States 

|  Generic  float 

|  Package  Spec 

State  of  integrator 

j  Signals 

j  Generic  float 

|  Package  Spec 

Represents  type  of 

1 

1 

1 

input  to  integrator 

3.3.6.6.9.11.10.4.8  LIMITATIONS 


None. 
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3.3.6.6.9.11.10.5  LIMIT_FLAG_SETTING  (SUBPROGRAM  BODY)  UNIT  DESIGN 

This  procedure  queries  the  flag  setting  and  returns  the  relation  of  the  current 
output  signal  to  the  limit. 


3.3.6.6.9.11.10.5.1  REQUIREMENTS  ALLOCATION 
N/A 


3.3.6.6.9.11.10.5.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.6.9.11.10.5.3  INPUT/OUTPUT 


None. 


3.3.6.6.9.11.10.5.4  LOCAL  DATA 
None. 

3.3.6.6.9.11.10.5.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.6.9.11.10.5.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Limit_Flag_Setting  return  Limit_Relations  is 

4 

begin 

return  Local_Limit_Flag_Settingj 
end  LimitFlagSetting; 

3.3.6.6.9.11.10.5.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.6.9.11.10.5.8  LIMITATIONS 


None. 


CAMP  Software  Detailed  Design  Document 
3.3.6.6.10  UNIT  DESIGN 


CAMP  Software  Detailed  Design  Document 


(This  page  left  intentionally  blank.) 


CAMP  Software  Detailed  Design  Document 


Page  1311 


package  body  Signal_Processing  is 

package  body  Upper_Lower_Limiter  is  separate; 
package  body  Upper_Limiter  is  separate; 
package  body  Lover_Limi ter  is  separate; 
package  body  Absolute_Limiter  is  separate; 
package  body  Absolute_Limiter_Vith_Flag  is  separate; 
package  body  General_First_Order_Filter  is  separate; 
package  body  Tustin_Lead_Lag_Filter  is  separate; 
package  body  Tustin_Lag_Filter  is  separate; 
package  body  Second_Order_Filter  is  separate; 
package  body  .ustin_Integrator_Vith_Limit  is  separate; 
package  body  Tustin_Integrator_Vith_Asymmetric_Limit  is  separate; 
begin 
hull; 
exception 

when  others  »>  raise; 


end  Signal_Processing; 
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separate  (Signal_Processing) 
package  body  Upper_Lower_Limi ter  is 


—  —  Local  Data  Objecis- 


UpperLimit , 

LowerLimit  :  Signal_Type; 
pragma  PAGE; 

procedure  Update_Limits  (Nev_Upper_Limit  :  in  Signal_Type; 

Nev_Lover~Limit  :  in  Signal_Type)  is 

begin 

if  Nev_Upper  Limit  >  Nev_Lover  Limit  then 
Upper_LimTt  :=  New_Upper_Liiit; 

Lower_Limit  :■  Nev_Lower_Limit; 
else 

raise  Limit_Exception; 
end  if; 

end  Update_Limits; 
pragma  PAGE; 

function  Limit  (Signal  :  SignalType)  return  SignalType  is 
Limited_Signal:  Signal_Type; 
begin 

if  Signal  >  Upper_Limit  then 
Limited_Signal  :■  Upper_Limit; 
elsif  Signal  <  Lover_Limit  then 
Limited_Signal  :*  Lower  Limit; 
else 

Limited_Signal  :=  Signal; 
end  if; 

return  Limited_Signal; 
end  Limit; 
pragma  PAGE; 


—  begin  processing  for  package  body 


begin 

Update_Limits  (New_Upper_Limit  =>  Initial_Upper_Limit, 
Nev_Lover_Limit  =>  Initial_Lower_Limit); 

end  Upper_Lover_Limiter; 
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separate  (Signal_Processing) 
package  body  Upper_Limi ter  is 


—  —  Local  Data  Object- 


Upper_Limit:  Signal_Type  :=  Initial_Upper_Limit; 
pragma  PAGE; 

procedure  Update_Limit  (Nev_Upper_Limit  :  in  Signal_Type)  is 
begin 

Upper JLimit  :=  New_Upper_Limit; 
end  Update_Limit; 
pragma  PAGE; 

function  Limit  (Signal  :  Signal_Type)  return  Signal_Type  is 
Limited_Signal:  Signal_Type; 

begin 

if  Signal  >  Upper_Limit  then 
LimitedSignal-:-  UpperLimit; 
else 

LimitedSignal  Signal; 
end  if; 

return  LimitedSignal; 


end  Limit; 
end  Upper_Limiter ; 
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separate  (Signal_Processing) 
package  body  Lover_Limiter  is 


—  —  Local  data  objects 


Lover_Limit  :  Signal_Type  :=  Initial_Lover_Limit; 
pragma  PAGE; 

procedure  Update_Limit  (New_Lower_Limit  :  in  Signal_Type)  is 
begin 

Lower_Limit  :=  Nev_Lover_Limit; 
end  Upda te  Limi t ; 

pragma  PAGE; 

function  Limit  (Signal  :  Signal_Type)  return  Signal  Type  is 
Limited_Signal:  Signal_Type; 

begin 

if  Signal  <  Lover_Limit  then 

Limited_Signal-s-  Lower_Limit; 
else 

LimitedSignal  Signal; 
end  if; 

return  Limited_Signal; 
end  Limit; 
end  Lover  Limiter; 
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separate  (Signal_Processing) 
package  body  Absolute_Limi ter  is 

—  —  Local  Data  Object- 

Absolute_Limit:  Signal_Type  :=  abs  (Initial_Absolute_Limit) ; 
pragma  PAGE; 

procedure  Update_Limit  (Nev_Absolute_Limit  :  in  Signal_Type)  is 
b'igin 

Absolute_Limit  :=  abs  (New_Absolute_Limit) ; 
end  Update_Limit; 
pragma  PAGE; 

function  Limit  (Signal  :  Signal_Type)  return  Signal_Type  is 
Limited_Signal:  Signal_Type; 

begin 

if  abs  (Signal)  >  AbsoluteLimit  then 
if  Signal  >0.0  then 

Limited_Signal  Absolute_Limit; 
else 

Limited_Signal  J»  -  Absolute_Limit; 
end  if; 
else 

Limited_Signal  Signal; 
end  if; 

return  Limited_Signal; 
end  Limit; 


end  Absolute  Limiter; 
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separate  (Signalprocessing) 

package  body  Absolute_Limi ter_Wi th_Flag  is 


—  —  Local  Data  Object- 


Absolute_Limit:  Signal_Type  :=  abs  (Initial  Absolute_Limit) ; 
Limit_Relation:  Limit_Relations  :=  Vithin_Limit; 
pragma  PAGE; 

procedure  Update_Limit  (Nev_Absolute_Limit  :  in  Signal_Type)  is 
begin 

Absolute_Limit  abs  (New_Absolute_Linit) ; 
end  Update_Limit; 
pragma  PAGE; 

function  Limit  (Signal  :  Signal_Type)  return  Signal_Type  is 
Limited_Signal:  Signal_Type; 
begin 

if  abs  (Signal)  >«  Absolute_Limit  then 

if  Signal  >-0.0  then 

Limited_Signal  Absolute  Limit; 

Limit_Relation  s»  At_PositIve_Limit; 

else 

Limited_Signal  :=  -  ^bsolute_Limit; 

Limit_Relation  At_Negative_Limit; 

end  if; 

else 

Limited_Signal  Signal; 

Limit_Rilation  Within_Limit; 

end  if; 

return  Limited_Signal; 

end  Limit; 
pragma  PAGE; 

function  Limit_Flag_Setting  return  Limi t_Relations  is 

begin 

return  Limit_Relation; 
end  Limit_Flag_Setting; 
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end  Absolute_Limi ter_Wi th_Flag; 


» 
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separate  (Signal_Processing) 

package  body  General_First_Order_Filter  is 


—  —  Local  Data  Objeci- 


Coef f icient_l  :  Coef f icient_Type  :=  Initial_Coef f icient_l ; 

Coef f icient_2  :  Coef f icient_Type  :=  Initial_Coefficient_2; 

Coef f icient_3  :  Coef f icient_Type  :=  Initial  Coefficient  3; 

Previous_Input_Signal:  Signal_Type  :=  Initial_PrevTous_Input_Slgnal; 
Previous_Output_Signal:  Signal_Type  := 

(  Previous_Input_Signal  *  (Coef f icient_l  +  Coef f icient_2)  )  / 

(  1.0  -  Coef f icient_3) ; 

pragma  PAGE; 

procedure  Update_Coef f icients  (Nev_Coefficient_l  :  in  Coef f icient_Type; 

Nev_Coef f icient_2  T  in  Coeff icient_Type; 
Nev_Coef f icient_3  :  in  Coeff icient_Type)  is 

begin 

Coef f icient_l  :»  New_Coef ficient_l; 

Coef f icient_2  :■  New_Coefficient_2; 

Coefficient_3  s-  Nev_Coefficient_3; 

end  UpdateCoeff icients; 

pragma  PAGE; 

function  Filter  (Signal  s  Signal_Type)  return  Signal_Type  is 
Output_Signal  s  Signal_Type; 
begin 

Output_Signal  :*  (  Signal  *  Coefficient  1)  + 

(  Previous_Input_SignaI  *  Coef f icient_2)  + 

(  Previous_Output_Signal  *  Coef ficient_3) ; 

Previous_Input_Signal  :■  Signal; 

Previous_Output_Signal  :«  Output_Signal; 

return  Output_Signal; 

end  Filter; 

pragma  PAGE; 

procedure  Reinitialize  (Signal  :  in  Signal_Type)  is 
begin 


Previous_Input_Signal  :=  Signal; 

Previous_Output  Signal  := 

-(  PrevTous_Input_Signal  *  (Coefficient^  +  Coef ficient_2)  )  / 
(  1.0  -  Coeff icient_3) ; 
end  Reinitialize; 
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end  General  First  Order  Filter; 
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separate  (Signal_Processing) 
package  body  Tustin_Lag_Filter  is 


—  —  Local  Data  Object- 


Coeff icient_l  :  Coeff icient_Type  :=  Initial_Coefficient_l; 

Coef f icient_2  :  Coeff icient_Tvpe  :=  Initial~Coef ficient_2; 


Previous_Input_Signal  :  Signal_Type  :=■  Initial_Previous_Input_Signal; 

Previous_Output_Signal:  Signal_Type  :  =  Previous  Input  Signal  * 

(  (270  *  Coefficient  I)  /  (T.O  -  Coefficient  2)  ); 


pragma  PAGE; 

procedure  Update_Coefficients  (Nev_Coefficient_l  s 

New  Coefficient  2  : 


in  Coef ficient_Type; 
in  Coefficient_Type)  is 


begin 

Coef f icient_l  NewCoef ficient_l ; 

Coef ficient_2  :■  New_Coefficient_2; 

end  Update_Coefficients; 
pragma  PAGE; 

function  Filter  (Signal  s  SignalType)  return  SignalType  is 
OutputSignal  :  SignalType; 
begin 

Output_Signal  (  (Signal  +  Previous_Input_Signal)  *  Coefficient_l)  + 

(  Previous_Output_Signal  *  Coefficient_2) ; 

Previous_Input_Signal  :**  Signal; 

Previous_Output_Signal  Output_Signal; 

return  Output_Signal; 

end  Filter; 

pragma  PAGE; 

procedure  Reinitialize  (Signal:  in  Signal_Type)  is 
begin 

Previous_Input ^Signal  .:=  Signal; 

Previous_Output_Signal  := 

Previous_Input_Signal  *  (  (2.0  *  Coef f icient_l)  /  (1.0  -  Coef f icient_2)  ); 
end  Reinitialize; 
end  Tustin_Lag_Filter; 
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separate  (Signal_Processing) 
package  body  Tustin_Lead_Lag_Filter  is 


—  —  Local  Data  Objecl- 


Previous_Input_Signal  :  Signal_Type  :=  Initial_Previous_Input_Signal; 
Previous  Output  Signal:  Signal  Type  :=  Initial  Previous  Input  Signal; 


Coefficient_l 
Coefficient  2 


:  Coeff icient_Type  :=  Initial_Coefficient_l; 
:  Coefficient  Type  Initial-Coef ficient  2; 


pragma  PAGE; 

procedure  Update_Coef f icients  (Nev_Coef f icient_l  :  in  Coeff icient_Type; 

Nev_Coefficient_2  :  in  Coeff icient_Type)  is 

begin 

Coeff icientl  :=  NewCoeff icient_l ; 

Coeff icient_2  :»  New_Coefficient_2; 

end  Update_Coeff icients; 

pragma  PAGE; 

function  Filter  (Signal  :  Signal_Type)  return  Signal_Type  is 
OutputSignal  :  SignalType; 


begin 


OutputSignal 


(  (Signal  -  Previous  InputSignal)  *  Coefficient  1)  + 
(  (Previous_Output_STgnal  -  Previous_Input_SignaT)  * 
Coefficient_2)  + 

Previous_Input~Signal; 


Previous_Input_Signal  :=■  Signal; 
Previous_Output_Signal  :=  Output_Signal; 

return  Output_Signal; 

end  Filter; 

pragma  PAGE; 

procedure  Reinitialize  (Signal  :  in  Signal_Type)  is 
begin 

Previous_Input_Signal  :=  Signal; 
Previous_Output_Signal  :=  Previous_Input_Signal; 

end  Reinitialize; 

end  Tustin  Lead  Lag  Filter; 
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separate  (Signal_Processing) 
package  body  Second_Order_Filter  is 


—  —  Local  Data  Objeci- 


Previous_Input_Signal:  Signal_Type; 

Second_Previous_Input_Signal:  Signal_Type; 

Previous_Output_Signal :  Signal_Type ; 

Second_Previous_Output_Signal:  Signal_Type; 

Coeff icientl  :  Coefficient_Type; 

Coeff icient_2  :  Coefficient_Type; 

Coeff icient_3  s  Coefficient~Type; 

pragma  PAGE; 

procedure  Redefine  Coefficients 

(New_Coefficient_Def  ining_Parameter_l  :  in  Coef ficient_Type; 
New_Coef f icient_Defining_Parameter_2  :  in  Coefficient_Type)  is 

Coefficient_Defining_Ratio:  Coeff icient_Type; 

begin 

Coefficient_Defining_Ratio  :■  1.0  / 

(1.0  +  New  Coefficient  Defining_Parameter_l  + 
New_Coe  fflcient  _De  f  i  nTng_Parame  t  e  r_2 ) ; 

Coefficient_l  (1.0  +  New_Coefficient_Defining_Parameter_l)  * 
Coefficient_Defining_Ratio; 

Coef ficient_2  s*  (2.0  *  (1.0  -  New  Coef f icient_Def ining_Parameter_2)  )  * 
Coefficient  _De  f i nlngJRa  t i o ; 

Coefficient_3  :=  (1.0  -  (New_Coef f icient_Def ining_Parameter_l  + 

New_Coefficient_Defining_Parameter_2))  * 
Coefficient_Defining_Ratio; 

end  Redefine_Coefficients; 

pragma  PAGE; 

function  Filter  (Signal  :  Signal_Type)  return  Signal_Type  is 
0utput_Signal  :  Signal_Type  0.0; 
begin 

Out put  Signal  :=  (  (Signal  -  Second_Previous_Input_Signal)  * 

Coef f icient_l)  + 

(  (Previous_Input_Signal  -  Previous_0utput  Signal)  * 

Coefficient  2)  - 

(  Second_Previous_Output_Signal  *  Coefficient_3) ; 

Second_Previous_Input_Signal  :=  Previous_Input_Signal; 
Previous_Input_Signal  Signal; 
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Second_Previous_Output_Signal  :=  Previous_Output_Signal; 
Previous_Output_Signal  :=  Output_Signal; 

return  Output_Signal; 

end  Filter; 


pragma  PAGE; 

procedure  Reinitialize  (Signal  :  in  Signal_Type)  is 
begin 

Previous_Input_Signal  :=  Signal; 

Second_Previous_Input_Signal  :=  Signal; 

Previous_Output_Signal  :=  Signal; 

Second_Previous_Output_Signal  s-  Signal; 

end  Reinitialize; 

pragma  PAGE; 


—  begin  processing  for  package  body 


^  begin 

* 

PreviousInputSignal  Initial_Previous_Input_Signal; 

Second_Previous_Input_Signal  Initial~Previous_Input_Signal; 

Previous_Output_Signal  s-  Initial_Previous_Input_Signal; 

Second_Previous_Output_Signal  :■  Initial_Previous_Input~Signal; 

Redefine_Coefficients  (Nev_Coefficient  Def ining_Parameter_l  -> 

Initial_CoefTicient_Defining_Parameter_l, 
New_Coefficient  De£ining_Parameter_2  ■> 

Initial_CoefIicient_Defining_Parameter_2) ; 

end  Second  Order  Filter; 
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with  General_Purpose_Math; 
separate  (Signal_Processing) 

package  body  Tustin_Integrator_With_Limit  is 


—  —  local  entities  - 


package  Local_Limit  is  new  Signal_Processing.Absolute_Limiter_With_Flag 
(Signal  Type  *>  States, 

InitiaI_Absolute_Limit  »>  Initial_Signal_Limit) ; 


—  —  Local  Data  Object- 


Signal_Gain  s  Gains  :»  Initial_Tustin_Gain; 

PreviousGainedlnput  :  Gained_Signals  := 

Initial_Signal_Level  *  Signal_Gain; 

Previous_Output_Signal  :  States 

Local_Limit. Limit  (Initial_State) ; 


—  —  local  entities  • 


package  Local_Integrator  is  new  General  Purpose_Math. Integrator 
(Dependent_Type  States, 

Independent_Type  ->  Gained_Signals, 

Time  Interval  »>  States, 

InitTal_Dependent_Value  ■>  Previous_Output_Signal, 

Initial_Independent_Value  =*>  Previous_Gained_Input, 

Default_Delta_Time  ->  1.0, 

»i*n 


pragma  PAGE; 

procedure  UpdateJLimit  (New_Absolute_Limit:  in  States)  is 
begin 

Local_Limit.Update_Limit  (New_Absolute_Limit  ■>  New_Absolute_Limit) ; 
end  Update_Limit; 
pragma  PAGE; 

procedure  Update_Gain  (New_Gain:  in  Gains)  is 
begin 

Signal_Gain  :*  Nev_Gain; 
end  Update_Gain; 


pragma  PAGE; 
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function  Integrate  (Signal  :  Signals)  return  States  is 

Nev_Gained_Signal  :  Gained_Signals  :=  Signal  *  Signal_Gain; 
Nev_Gained_Total  :  Gained_Signals  := 

Nev_Gained_Signal  +  Previous_Gained_Input ; 
OutputSignal  :  States; 

begin 


if  within  limit  or 

( beyond  limit  and  new  input  brings  output  within  limit)  then 
integrate  new  output 


if 

(Local_Limit.Limit_Flag_Setting  =  Within  Limit  or  else 
(Local_Limit.Limit~Flag  Setting  =  At_PosItive_Limit  and  then 
New_Gained  Total  <  5.0)  or  else 
(Local_Limit.Llmit_Flag  Setting  =  At_Negative_Limit  and  then 
Nev_Gained_Total  >  0.0)  ) 

then 

Output_Signal  :■  Local_Integra tor. Integrate  (New  GainedSignal) ; 
OutputSignal  s»  Local_Limit. Limit  (Output  Signal) ; 

if  Local  Limit. Limit  Flag  Setting  /»  Within  Limit  then 

RESET  (Integrator_State  ->  Output  Signal, 

Signal  «>  SignalJ; 


end  if; 

Previous_Output_Signal  s-  Output_Signal; 
else 

Output_Signal  :=  Previous_Output_Signal; 

Local_Integrator. Update 

(Current_Independent_Value  ->  New_Gained_Signal) ; 


end  if; 


Previous_Gained_Input  :■  New_Gained  Signal; 
return  Output_Signal; 
end  Integrate; 


pragma  PAGE; 

procedure  RESET  (Integrator_State  :  in  States; 

Signal  :  in  Signals)  is 

Limited_State:  States  Local_Limit. Limit  (Integrator_State); 


begin 
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Previous_Gained_Input  :=  Signal  *  Signal_Gain; 

Local_Integra tor .Reinitialize 

(Initial_Dependent_Value  =>  Integrator  State, 
Initial_Independent_Value  =>  Previous_Gained_Input) ; 


end  RESET; 
pragma  PAGE; 

function  Limit_Flag_Setting  return  Limit_Relations  is 
begin 

return  ( Local_Limi  t .  Limi  t_Flag_Set t ing) ; 
end  Limi  t_Flag_Set  ting; 
end  Tustin_Integrator_Wi th  Limi  t ; 
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with  General_Purpose_Math; 
separate  (Signal_Processing) 

package  body  Tustin_Integrator_With_Asymmetric_Limit  is 


—  —  local  entities  - 


package  Local  Limit  is  new  Signal_Processing.Upper_Lover_Limiter 
(Signal  Type  ->  States, 

InitiaI_Lower_Limi t  =*>  Initial_Signal_Lover_Limit, 
Initial_Upper_Limit  *>  Initial_Signal_Upper_Limit) ; 


—  -  -  Local  Data  Objects- 


Signal_Gain 


Gains  Initial  Tustin  Gain; 


Previous_Gained_Input  :  Gained_Signals  := 

Initial_Signal_Level  *  Signal_Gain; 

Previous_Output_Signal  s  States 

Local_Limit. Limit  (Initial_State) ; 


LocalLimitFlagSetting  :  Limit_Relations  Vithin_Limit; 


Local_Lower_Limi t 
Local_Upper_Limi t 


States  :■  Initial_Signal_Lower_Limit; 
States  Initial~Signal_Upper_Limit; 


—  —  local  entities 


package  Local_Integrator  is  new  General_Purpose_Math. Integrator 
(Dependent_Type  ->  States, 

Independently pe  ->  Gained_Signals, 

Time  Interval  ->  StatesT 

InitIal_Dependent_Value  ■>  Previous_Output_Signal, 
Initial_Independent_Value  ■>  Previous~Gained_Input, 

Default~Delta_Time  ->  1.0); 

pragma  PAGE; 

procedure  Update_Limits  (New_Lower_Limit;  in  States; 

New_Upper~Limit:  in  States)  is 


begin 

Local_Limit.Update_Limits  (New_Lover_Limit  ■>  New_Lower_Limit, 

New_Upper~Limit  =>  New  Upper-Limit) ; 

Local_Lower_Limit  :*  Nev_Lower_Limi  t ; 

Local~Upper_Limit  :  =  Nev_Upper_Limit; 


end  Update_Limits; 
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pragma  PAGE; 

procedure  Update_Gain  (New_Gain:  in  Gains)  is 

begin 

SignalGain  :=  New_Gain; 
end  Update_Gain; 
pragma  PAGE; 

function  Integrate  (Signal  :  Signals)  return  States  is 

Nev_Gained_Signal  :  Gained_Signals  :=  Signal  *  Signal_Gain; 
New_Gained_Total  :  Gained_Signals  :  = 

New_Gained_Signal  +  Previous_Gained_Input; 
Output_Signal  :  States; 

begin 


—  if  within  limit  or 

(beyond  limit  and  new  input  brings  output  within  limit )  then 
integrate  new  output 


(Local_Limit_Flag_Setting  ■  Within  Limit  or  else 
(LocalLimitFlagSetting  -  At_PosItive_Limit  and  then 
New  Gained  Total  <  0.0)  or  else 
(Local_Eimit_Flag_Setting  -  At_Negative_Limit  and  then 
NewGainedTotal  >  0.0)  ) 

then 

Output  Signal  s»  Local_Integrator. Integrate  (New  GainedSignal) ; 
Output_Signal  :=  Local_Limit. Limit  (Output_SignaI) ; 

if  Output_Signal  >=  Local_Upper_Limit  then 

Local_Limit  Flag_Setting  At_Positive  Limit; 
elsif  Output  Signal  <-  Local_Lower  Limit  tHen 
Local_LimIt_Flag_Setting  At_Segative_Limit ; 
else 

Local_Limit_Flag_Setting  Vithin_Limit; 
end  if; 

if  Local_Limit_Flag_Setting  /-  Within_Limit  then 

RESET  (Integrator_State  ->  Output  Signal, 

Signal  =>  SignalJ; 


end  if; 

Previous_Output_Signal  :=  Output_Signal; 

else 

Output_Signal  :=  Previous_Output_Signal; 
Local_Integrator. Update 
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(Current_Indc  ;>endent_Value  =>  New_Gained_Signal) ; 


end  if; 


Previous_Gained_Input  :=  Nev_Gained_Signal; 
return  Output_Signal; 
end  Integrate; 
pragma  PAGE; 

procedure  RESET  (Integrator_State  :  in  States; 

Signal  :  in  Signals)  is 

Limited_State:  States  :=  Local_Limit. Limit  (Integrator_State) ; 

begin 

Previous_Gained_Input  :=  Signal  *  Signal_Gain; 

Local_Integra tor .Reinitialize 

(Inltial_Dependent_Value  ■>  Integrator_State, 
Initial_Independeiit_Value  ->  Previous_Gained_Input) ; 


end  RESET; 

•  pragma  PAGE; 

function  Limit_Flag_Setting  return  Limit_Relations  is 
begin 

return  Local_Limit_Plag_Setting; 
end  Limit_Flag_Setting; 
end  Tus  t  i  n_In  t  egra  t o  r_W i  t h_Asymme  t  r  i  c_Lim  i  t ; 
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3. 3. 6. 7  GENERAL  PURPOSE  MATH  (BODY)  TLCSC  P687  (CATALOG  #P28-0) 

This  TLCSC  is  a  package  which  consists  of  two  type  of  subpackages:  generic 
packages  and  simple  packages  which  contain  generic  functions.  As  a  group,  the 
subpackages  provide  the  general  purpose  math  routines  required  by  the  rest  of 
the  math  parts. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 7.1  REQUIREMENTS  ALLOCATION 

The  following  chart  summarizes  the  allocation  of  CAMP  requirements  to  this 
Tlcsc: 


|  Name 

|  Requirements  Allocation 

|  Lookup  Table  Even  Spacing 

|  R118 

j  Lookup  Table  Uneven  Spacing 

|  R119 

j  Incrementor 

|  R120 

j  Decrementor 

|  R121 

j  Running  Average 

|  R142 

j  Change  Calculator 

|  R113 

j  Accumulator 

|  R114 

j  Change  Accumulator 

|  R115 

j  Integrator 

|  R124 

j  Interpolate  or  Extrapolate 

j  R116,  R117 

j  Square  Root 

|  R123 

Root  Sum  Of  Squares 

|  R122 

1  Sign 

j  R224 

i  Mean  Value 

j  R144 

j  Mean  Absolute  Difference 

|  R143 

3. 3. 6. 7. 2  LOCAL  ENTITIES  DESIGN 
None. 

3. 3. 6. 7. 3  INPUT/OUTPUT 
None . 

3. 3. 6. 7. 4  LOCAL  DATA 


None. 
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3. 3. 6. 7. 5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 7. 6  PROCESSING 


The  following  describes  the  processing  performed  by  this  part: 


with  Polynomials; 

package  body  General_Purpose_Math  is 

package  body  Lookup_Table_Even_Spacing  is  separate; 


package  body  Lookup_Table_Uneven_Spacing  is 


package  body  Two_Uay_Table_Lookup  is 
package  body  Incrementor  is 
package  body  Decrementor  is 
package  body  Running_Average  is 
package  body  ChangeCalculator  is 
package  body  Accumulator  is 
package  body  Change_Accumulator  is 
package  body  Integrator  is 


separate; 

separate; 

separate; 

separate; 

separate; 

separate; 

separate; 

separate; 

separate; 


function  Interpolate_or_Extrapolate 

(Input  :  in  Independent_Type; 

Lower_Independent  j  in  Independent_Type; 
Higher_Independent  :  in  IndependentJType; 
Lower_Dependent  :  in  Dependent  Type; 
Higher_Dependent  :  in  Dependent_Type) 
return  Dependent_Type  is  separate; 


package  body  Square_Root  is  separate; 

function  Root_Sum_Of_Squares  (X  :  Real_Type; 

Y  :  Real_Type; 

Z  :  Real_Type) 

return  Real_Type  is  separate; 


function  Sign  (Input_Variable  :  Real_Type)  return  INTEGER  is  separate; 


function  Mean_Value  (Value_Vector  :  VectorType) 

return  Element_Type  is  separate; 


function  Mean_Absolute_Difference  (Value_Vector  :  Vector_Type) 

return  Element_Type  is  separate; 


end  General_Purpose  Math; 
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3. 3. 6. 7. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 3.6. 7.8  LIMITATIONS 
None. 

3. 3. 6. 7. 9  LLCSC  DESIGN 

3. 3. 6. 7. 9.1  LOOKUP_TAB LE_EVEN_S PACI NG  (BODY)  PACKAGE  DESIGN  (CATALOG  #P29-0) 

This  LLCSC,  which  is  designed  as  an  Ada  generic  package,  provides  the  ability 
to  initialize  and  search  through  a  table  of  independent  and  dependent  values 
which  are  evenly  spaced. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 7. 9. 1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R118. 


3. 3. 6. 7. 9. 1.2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 6. 7. 9. 1.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  types  were  defined  in  the  package  specification: 


|  Name 

|  Base  Type  |  Description  | 

| Independent_Type 
| Dependent  Type 
j Index_Type 

| generic  float | Type  for  the  independent  variable | 
jgeneric  float |Type  for  the  dependent  variable  ( 

| generic  float j Type  for  the  independent  variable! 

Data  objects: 

The  following  objects  were  defined  in  the  package  specification: 
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|  Name 

1  Type 

Mode 

|  Description  | 

| Minimum  Independnt 

|  Independent 

1  in 

lvalue  of  the  first  independent! 

j  Value 

Type 

|  table  value 

| Maximum  Independnt 

|  Independent 

1  in 

jvalue  of  the  last  independent  j 

Value 

Type 

I 

table  value  j 

3. 3. 6. 7. 9. 1.4  LOCAL  DATA 


None. 


3. 3. 6. 7. 9. 1.5  PROCESS  CONTROL 


Not  applicable. 


3. 3. 6. 7. 9. 1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General_Purpose_Math) 

package  body  Lookup_Table_Even_Spacing  is 

—  —  Declare  table  step  variable  and  initialize  it  to  the  value  of  the  step 
-  between  each  successive  independent  entry 


Internal_Min_Independent_Value  :  constant  Independent_Type 

:■  Minimum_Independent_Value; 

Internal_Max_Independent_Value  :  constant  Independent_Type 

Maximum_Independent_Value; 


Table_Step  :  Independent  Type  :=■ 

(InternaI_Max  Independent_Value  -  Internal_Min_Independent_Value) 
/  Indepen3ent_Type  (Tables 'LENGTH  -  1); 

end  Lookup_Table_Even_Spacing; 


3. 3. 6. 7. 9. 1.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3. 3. 6. 7. 9. 1.8  LIMITATIONS 

The  exception  "Value_0ut  Of_Range"  is  raised  when  Lookup  is  called  with  a  value 
outside  of  the  table  range. 
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3. 3. 6. 7. 9. 1.9  LLCSC  DESIGN 


None. 


3.3.6.7.9.1.10  UNIT  DESIGN 

3.3.6.7.9.1.10.1  INITIALIZE  UNIT  DESIGN 

This  procedure  initializes  one  row  of  the  table. 


3.3.6.7.9.1.10.1.1  REQUIREMENTS  ALLOCATION 
Sje  package  specification. 


3.3.6.7.9.1.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.7.9.1.10.1.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

1 Table 

| Tables 

1  out 

(Table  to  be  searched 

| Index 

1  Index  Type 

1  in 

|Rov  of  the  lookup  table 

j Dependent  Value 

j  Dependent 

1  in 

j The  dependent  value  to 

1 

1  Type 

1 

be  inserted  into  this  row 

3.3.6.7.9.1.10.1.4  LOCAL  DATA 


None. 


3.3.6.7.9.1.10.1.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.7.9.1.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Initialize  (Table  :  out  Tables; 

Index  :  in  Index  Type; 

Dependent_Value  :  in  Dependent_Type)  is 


begin 
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Table  (Index)  :=  Dependent_Value; 
end  Initialize; 


3.3.6.7.9.1.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3.3.6.7.9.1.10.1.8  LIMITATIONS 


None. 


3.3.6.7.9.1.10.2  LOOKUP  UNIT  DESIGN 

This  procedure  does  a  lookup  of  the  table  and  returns  the  two  closest  sets  of 
dependent  and  independent  values;  if  the  key  is  not  in  the  table  range,  an 
exception  is  raised. 


3.3.6.7.9.1.10.2.1  REQUIREMENTS  ALLOCATION 
See  package  specification. 


3.3.6.7.9.1.10.2.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.7.9.1.10.2.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

1  Type  | 

Mode 

|  Description  | 

| Table 

| Tables  I 

in 

{Table  to  be  searched 

|Key 

1 

j Independent  j 
Type  "j 

in 

{The  input  independent  value 
'  be  inserted  into  this  row 

|  Lover_Independent 

{independent  | 

(  Type  ~i 

out 

|T'-e  lower  independent  value 

1  returned 

j  Higher_Independent 

{independent  | 

(  Type  ! 

out 

j  T1  .i  higher  independent  value 
j  returned 

j Lower  Dependent 

{Dependent 

1  Type  ~  | 

out 

jThe  lover  dependent  value 
|  returned 

j  Higher_Dependent 

{Dependent  j 

1  Type  | 

out 

jThe  higher  dependent  value 
j  returned 
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3.3.6.7.9.1.10.2.4  LOCAL  DATA 
None. 


3.3.6.7.9.1.10.2.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.7.9.1.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Lookup 

(Table  :  in  Tables; 

Key  :  in  Independent_Type; 

Lover_Independent  :  out  Independent_Type; 

Higher_Independent  :  out  Independent_Type; 

Lover_Dependent  :  out  Dependent_Type; 

Higher_Dependent  :  out  Dependent_Type)  is 

Index  :  Index_Type; 

Temp_Lover_Independent  :  Independent_Type; 

IndexFloatVar  :  Independent~Type; 

IndexIntegerVar  :  INTEGER; 

begin 

—  Raise  exception  if  Key  is  outside  of  table  range 

if  Key  <  Internal_Hin_Independent_Value  or  Key  >  InternalMaxIndependentValue  th 
raise  Value_0ut_0f_Range; 
end  if; 

—  Map  the  key  to  an  index  value 

4 

Index_Float_Var  :»  (Key  -  Internal_Min_Independent_Value)  /  Table_Step; 
IndexIntegerVar  INTEGER  (Index_Float_Var) ; 

if  IndexFloatVar  >-  Independent_Type  (Index_Integer_Var)  then 
Index_Integer_Var  :■  Index_Integer_Var  +  1; 
end  if; 

Index  Index_Type'VAL  (Index_Integer_Var) ; 


—  Adjust  the  index  value  if  the  key  was  mapped  to  the  last  entry 

if  Index  =  Index_Type' LAST  then 

Index  :*  Index_Type'PRED  (Index); 
end  if; 


—  Return  the  table  values 

Temp_Lower_Independent  Internal_Min_Independent_Value  + 
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(Index_Type' FIRST))  * 


(Independent_Type  (Index_Type' POS  (Index)  -  IndexType 
Table_Step) ; 


Lover_Independent  :=  Temp_Lower_Independent ; 
Higher_Independent  :=  Temp_Lower_Independent  +  Table_Step; 

Lower_Dependent  :=  Table  (Index); 

HigherDependent  :=  Table  (Index_Type' SUCC(Index) ) ; 

end  Lookup; 


3.3.6.7.9.1.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3.3.6.7.9.1.10.2.8  LIMITATIONS 

The  exception  "Value_0ut_0f_Range"  is  raised  if  the  input  key  is  outside  the 
table  range. 


3.3.6.7.9.1.10.3  LOOKUP  UNIT  DESIGN 

This  procedure  does  a  lookup  of  the  table  and  returns  the  two  closest  sets  of 
dependent  and  independent  values  and  a  flag  specifying  vhether  the  key  is 
below,  within,  or  above  the  table  range. 


3.3.6.7.9.1.10.3.1  REQUIREMENTS  ALLOCATION 
See  package  specification. 


3.3.6.7.9.1.10.3.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.7.9.1.10.3.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 
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|  Name 

1  Type 

Mode 

|  Description  | 

| Table 

| Tables 

in 

(The  table  to  be  searched  | 

|Key 

1 

j Independent 

1  Type 

in 

|The  input  independent  value  j 
be  inserted  into  this  rowj 

| Lower  Independent 

| Independent 
j  Type 

out 

|The  lower  independent  value  | 
returned  | 

| Higher  Independent 
1 

| Independent 

1  Type 

out 

[The  higher  independent  value j 
j  returned  | 

| Lower  Dependent 

| Dependent 

1  Type 

out 

|The  lower  dependent  value 
j  returned  | 

j Higher  Dependent 

| Dependent 

1  Type 

out 

|The  higher  dependent  value  j 
j  returned  | 

|Key  Location 

1 

|Key  Range 
Flag 

1 

out 

[Specifies  whether  the  key 
\  is  above,  in,  or  below  [ 

i  the  table  range  1 

3.3.6.7.9.1.10.3.4  LOCAL  DATA 
None. 


3.3.6.7.9.1.10.3.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.7.9.1.10.3.6  PROCESSING 


The  following  describes  the  processing  performed  by  this  part: 


procedure  Lookup 

(Table 

Key 

Lower_Independent 

Higher_Independent 

Lover_Dependent 

Higher_Dependent 

Key_Location 


:  in  Tables; 

:  in  Independent_Type; 

:  out  Independent_Type; 

:  out  Independent_Type; 

:  out  Dependent_Type; 

:  out  Dependent_Type; 

:  out  Key_Range~F lag )  is 


Index 

Temp_Lower_Independent 

Index_Float_Var 

Index_Integer_Var 


Index_Type; 
Indepindent_Type ; 
Independent_Type ; 
INTEGER; 


begin 


—  Return  the  first  two  rows  of  the  lookup  table  if  Key  is  below  table  range 
if  Key  <  Internal_Min_Independent_Value  then 
Key_Location  : =•  Below_Table_Range; 

Lower_Independent  :=  Internal_Min_Independent_Value; 
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*3 

Higher_Independent  :=  Internal_Min_Independent_Value  +  Table_Step; 

Lower_Dependent  :=  Table  (Index_Type' FIRST) ; 

Higher_Dependent  :=  Table  (Index_Type' SUCC(Index_Type' FIRST) ) ; 

—  Return  the  last  two  rows  of  the  lookup  table  if  Key  is  above  table  range 

elsif  Key  >  Internal_Max_Independent_Value  then 

Key_Location  :=  Above_Table_Range; 

Lowerlndependent  :=  Internal_Max_Independent_Value  -  Table_Step; 
Higher_Independent  :»  Internal_Max  Independent_Value; 

Lower_De pendent  :=  Table  (Index_Type' PRED(Index_Type'LAST)) ; 

Higher_Dependent  Table  (Index_Type' LAST) ; 


—  Key  is  in  table  range,  so  map  the  key  to  an  index  value  and  return  the 

—  corresponding  values 

else 

Key_Location  In_Table_Range ; 


—  Map  the  Key  to  an  Index  value 

Index_Float_Var  (Key  -  Internal_Min_Independent_Value)  /  Table_Step; 
Index_Integer_Var  INTEGER  (Index_Float_Var) ; 

if  Index_Float_Var  >*  Independent_Type  (Index_Integer_Var)  then 
Index_Integer_Var  :  -  Index_Integer_Var  +  1; 
end  if; 

Index  :=  Index_Type' VAL  (Index_Integer_Var) ; 


—  Adjust  the  Index  if  it  has  been  mapped  to  the  last  entry 

if  Index  *  Index_Type' LAST  then 
Index  :■  Index_Type'PRED  (Index); 
end  if; 

—  Return  the  table  values 


Terap_Lower_Independent 
P0S(Index_Type' FIRST))  * 


Internal  Min_Independent_Value  + 

(IndepencTentJType  (Index_Type' ?0C  (Index)  -  Index_Tyj 
Table_Step) ; 


Lower_Independent  :=  Temp_Lower_Independent ; 
Higher_Independent  :*  Temp_Lower_Independent  +  Table_Step; 

Lower_Dependent  :=  Table  (Index); 

Higher_Dependent  :=  Table  (Index_Type,SUCC(Index)) ; 


end  if; 
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yr\ 

end  Lookup; 

3.3.6.7.9.1.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.7.9.1.10.3.8  LIMITATIONS 
None. 

3. 3. 6. 7. 9. 2  LOOKUP_TABLE_UNEVEN_SPACING  (BODY)  PACKAGE  DESIGN  (CATALOG  #P30-0) 

This  LLCSC,  which  is  designed  as  an  Ada  generic  package,  provides  the  ability 
to  initialize  and  search  through  a  table  of  independent  and  dependent  values 
which  are  unevenly  spaced. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 

3. 3. 6. 7. 9. 2.1  REQUIREMENTS  ALLOCATION 
iM*  This  part  meets  CAMP  requirement  R119. 

3. 3. 6. 7. 9. 2. 2  LOCAL  ENTITIES  DESIGN 
None. 

3. 3. 6. 7. 9. 2. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

|  Base  Type  |  Description  | 

|Dependent_Type 
j Independent_Type 
j Index_Type 

| generic  float | Type  for  the  dependent  variable  | 
j generic  float j Type  for  the  independent  variable! 
j generic  float j Type  for  the  independent  variable! 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 
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(  Name  |  Type  | Model  Description 


| Minimum  lndependnt | Independent |  in  | value  of  the  first  independent! 
I  Value  j  Type  j  j  table  value  j 
j Maximum_Independnt | Independent |  in  j value  of  the  last  independent  j 
I  _Value  |  _Type  j  |  table  value  | 


3. 3. 6. 7. 9. 2. 4  LOCAL  DATA 
None. 

3. 3. 6. 7. 9. 2. 5  PROCESS  CONTROL 
Not  applicable. 

3. 3. 6. 7. 9. 2. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
separate  (GeneralPurposeMath) 
package  body  Lookup_Table_Uneven_Spacing  is 
end  Lookup_Table_Uneven_Spacing; 

3. 3. 6. 7. 9. 2. 7  UTILIZATION  OP  OTHER  ELEMENTS 
None. 

3.3.6. 7. 9. 2. 8  LIMITATIONS 
None. 

3. 3. 6. 7. 9. 2. 9  LLCSC  DESIGN 
None. 

3.3.6.7.9.2.10  UNIT  DESIGN 
3.3.6.7.9.2.10.1  INITIALIZE  UNIT  DESIGN 

This  procedure  initializes  one  row  of  the  table. 
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3.3.6.7.9.2.10.1.1  REQUIREMENTS  ALLOCATION 
See  package  specification. 

3.3.6.7.9.2.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.7.9.2.10.1.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description 

™i 

| Table 

| Tables 

out 

|The  lookup  table 

1 

| Index 

j Index  Type 

in 

|Rov  of  the  lookup  table 

1 

(Independent  Va] 

1  Independent 

in 

|The  independent  value  to 

1 

1 

i  Type 

be  inserted  into  this 

rov| 

(Dependent  Value 

(Dependent 

in 

(The  dependent  value  to 

1 

1 

1  Type 

be  inserted  into  this 

rov| 

3.3.6.7.9.2.10.1.4  LOCAL  DATA 


None. 


3.3.6.7.9.2.10.1.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.7.9.2.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Initialize 

(Table  :  out  Tables; 

Index  :  in  Index_Type; 

Independent_Value  :  in  Independent_Type; 

Dependent_Value  :  in  Dependent_Type)  is 

begin 

Table  (Index) .Independent_Entry  :=  Independent_Value; 
Table  (Index) .Dependent_Entry  :=  Dependent_Value; 


end  Initialize; 
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3.3.6.7.9.2.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3.3.6.7.9.2.10.1.8  LIMITATIONS 


None. 


3.3.6.7.9.2.10.2  LOOKUP  UNIT  DESIGN 

This  procedure  does  a  lookup  of  the  table  and  returns  the  two  closest  sets  of 
dependent  and  independent  values;  if  the  input  key  is  outside  the  table  range, 
an  exception  will  be  raised. 


3.3.6.7.9.2.10.2.1  REQUIREMENTS  ALLOCATION 
See  package  specification. 


3.3.6.7.9.2.10.2.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.7.9.2.10.2.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

Type  | 

Mode 

|  Description  | 

| Table 

Tables 

in 

(Lookup  table  to  be  searched  | 

|Key 

1 

Independent  j 
Type  1 

in 

jThe  input  independent  value  j 
i  be  inserted  into  this  rovj 

| Lover_Independent 

Independent  | 
Type  | 

out 

jThe  lover  independent  value  j 

1  returned  | 

j  Higher_Independent 

Independent  | 
Type  | 

out 

jThe  higher  independent  value) 
returned  j 

j  Lover_Dependent 

Dependent 

Type  | 

out 

jThe  lover  dependent  value 
returned  j 

j  Higher_Dependent 

Dependent  , 

Type  | 

out 

jThe  higher  dependent  value  j 
■  returned  j 

3.3.6.7.9.2.10.2.4  LOCAL  DATA 


None. 
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3.3.6.7.9.2.10.2.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.7.9.2.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Lookup 

(Table  :  in  Tables; 

Key  :  in  Independent_Type; 

Lover_Independent  :  out  Independent_Type; 
Higher_Independent  :  out  IndependentJType; 

Lower_Dependent  :  out  Dependent  Type; 

Higher_Dependent  :  out  Dependent~Type)  is 

Index  :  Index_Type; 

begin 

—  Raise  an  exception  if  the  inpi  key  is  outside  of  the  table  range 

if  Key  <  Table  (Index_Type' FIRST) .Independent  Entry  or 
Key  >  Table  (Index_Type'LAST).Independent_lntry  then 

raise  ValueOutOf  Range; 

end  if; 


—  Search  through  the  table  until  the  independent  entry  is  greater  than 

—  or  equal  to  the  Key  or  have  gone  through  the  entire  table  (actually 

—  go  through  one  less  row  than  the  whole  table  since  we  return  two  rows) 

Index  :»  Index_Type'SUCC(Index_Type' FIRST); 
loop 

exit  when  (Table  (Index) .Independent_En try  >»  Key); 

Index  :«  Index  Type' SUCC  (Index); 
end  loop; 


—  Return  the  table  values 

Lower_Independent  :=■  Table  (Index_Type'PRED(Index)).Independent_Entry; 
Lower_Dependent  :=  Table  (Index_Type'PRED(Index)).Dependent_Entry; 

Higher_Independent  :=  Table  (Index) .Independent_Entry; 

Higher_Dependent  :*  Table  (Index) .Dependent_Entry; 


end  Lookup; 


CAMP  Software  Detailed  Design  Document 


Page  1346 


3.3.6.7.9.2.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3.3.6.7.9.2.10.2.8  LIMITATIONS 

The  exception  "Value_0ut_0f_Range"  is  created  if  Key  flag)  is  outside  of  the 
Table  range 


3.3.6.7.9.2.10.3  LOOKUP  UNIT  DESIGN 

This  procedure  does  a  lookup  of  the  table  and  returns  the  two  closest  sets  of 
dependent  and  independent  values  along  with  a  flag  which  the  table  range,  an 
exception  will  be  raised. 


3.3.6.7.9.2.10.3.1  REQUIREMENTS  ALLOCATION 
See  package  specification. 


3.3.6.7.9.2.10.3.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.7.9.2.10.3.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

Type  | 

1 

Mode 

|  Description  | 

| Table 

Tables  | 

in 

| Lookup  table  to  be  searched 

|Key 

1 

Independent  | 
Type 

in 

|The  input  independent  value 

1  be  inserted  into  this  row 

| Lower_Independent 

Independent  j 
Type  "! 

out 

|The  lover  independent  value 
returned 

j  Higher_Independent 

Independent  | 
Type 

out 

|The  higher  independent  value 
!  returned 

| Lover_Dependent 

Dependent 

Type  ~  ; 

out 

(The  lover  dependent  value 
i  returned 

j  Higher^  Dependent 

Dependent  i 
Type 

out 

|The  higher  dependent  value 
j  returned 

|Key_Location 

I 

Key_Range_  [ 
Flag 

1 

out 

(Specifies  whether  the  key 
j  is  above,  in,  or  below 
j  the  table  range 
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3.3.6.7.9.2.10.3.4  LOCAL  DATA 
None. 


3.3.6.7.9.2.10.3.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.7.9.2.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Lookup 

(Table  :  in  Tables; 

Key  :  in  Independent_Type; 

Lover  Independent  :  out  Independent_Type; 

Higher  Independent  :  out  Independent_Type; 

Lower  Dependent  :  out  Dependent_Type; 

Highel:_Dependent  :  out  Dependent_Type; 

Key_Location  :  out  Key _Range_F lag )  is 

Index  :  Index_Type; 

begin 

—  This  routine  first  checks  to  make  sure  that  the  Key  is  within  the  Table 

—  range;  if  it  is  below,  return  the  first  two  rovs;  if  it  is  above,  return 

—  the  last  two  rowj;  if  it  is  within  the  range,  find  which  rows  it  is  between 

—  and  return  those  two  rows 

if  Key  <  Table  (IndexType' FIRST). Ind«pnndent_Entry  then 

—  Return  the  first  two  rows  of  the  table  if  key  is  less  than  first  entry 
Key_Location  Belov_Table_Range; 

Lower_Independent  Table  (Index_Type' FIRST).  Independent_Entry; 

Higher_Independent  Table  (Index_Type'SUCC  (Index_Type' FIRST)).  Independent_E 


Lover_Dependent  Table  (Index_Type' FIRST) .  Dependent_Entry; 

Higher_Dependent  Table  (Index_Type' SUCC  (Index_Type' FIRST) ) .  Dependent_Entry 

elsif  Key  >  Table  (Index_Type'LAS?) .Independent_Entry  then 

—  Return  the  last  .two  rows  of  the  table  if  key  is  greater  than  last  entry 

KeyJLocation  Above_Table_Range; 

Lover_Independent  :=  Table  (IndexJType' PRED  (Index_Type'LAST)).  Independent  En 

Higher_Independent  :■  Table  (IndexJType' LAST) .  Independent_Entry; 

Lower_Dependent  Talle  (Index_Type'PRED  (Index_Type  LAST)).  Dependent_Entry; 

Higher_Dependent  :*  Table  (Index_Type'LAST).  Dependent_Erttry; 
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—  Search  through  the  table  until  the  independent  entry  is  greater  than 

—  or  equal  to  the  Key  or  have  gone  through  the  entire  table 

Key_Location  :=  In_Table_Range; 

Index  :=  Index_Type'SUCC(Index_Type' FIRST) ; 
loop 

exit  when  (Table  (Index) .Independent_Entry  >»  Key); 

Index  :=  IndexType' SUCC  (Index); 
end  loop; 


—  Return  the  table  values 

Lower  lndependent  :=  Table  (Index_Type'PRED(Index)) .Independent_Entry; 
Lower_Dependent  :=  Table  (Index_Type'PRED(Index)).Dependent_Entry; 

Higher_Independent  :«  Table  ( Index ).Independent_En try; 

Higher_Dependent  !«  Table  (Index) .Dependent  Entry; 

end  if; 

end  Lookup; 

3.3.6.7.9.2.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.7.9.2.10.3.8  LIMITATIONS 


None 


3. 3. 6. 7. 9. 3  INCREMENTOR  (BODY)  PACKAGE  DESIGN  (CATALOG  #P31-0) 

This  generic  package  provides  the  capability  to  initialize  and/or  reinitialize 
a  variable  to  be  incremented,  select  a  value  to  be  used  as  an  incrementor,  and 
increment  the  variable  accordingly. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 7. 9. 3.1  REQUIREMENTS  ALLOCATION 
This  LLCSC  meets  CAMP  requirement  R120. 
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3. 3. 6. 7. 9. 3. 2  LOCAL  ENTITIES  DESIGN 


None. 


3. 3. 6. 7. 9. 3. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  types  were  defined  in  the  package  specification: 


|  Name 

|  Base  Type  | 

Description  | 

|Real  Type 

jgener  float | 

Type  of  the  incrementor  variable  | 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

|Mode 

|  Description  | 

| Initial  Value 

| Real  Type 

in 

| Initial  incrementor  value  | 

j Increment_Amount 

j  Real_Type 

in 

j Amount  by  which  to  increment  j 

3. 3. 6. 7. 9. 3. 4  LOCAL  DATA 
Data  objects: 

The  following  data  objects  are  maintained  by  this  package: 


|  Name 

1  Type 

1 

Description  | 

| Increment 
j  Variable 
Amount  of 

(Real  Type 

| Storage  of 

i 

the  incremented  variable  | 

|Real  Type 

i 

| Storage  of 

i 

increment  amount  | 

|  Increment 

1 

1 

1 

3. 3. 6. 7. 9. 3. 5  PROCESS  CONTROL 
Not  applicable. 

3. 3. 6. 7. 9. 3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
separate  (General_Purpose_Math) 
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package  body  Incrementor  is 

—  —  Declare  the  Incrementor  and  amount  of  increment  object  and  initialize  them 

—  —  to  values  given  during  instantiation 

Amount_of_Inc remen t  :  Real_Type  :=  Increment_Amount ; 

IncrementVariable  :  Real_Type  :=  Initial_Value; 

end  Incrementor; 

3. 3. 6. 7. 9. 3. 7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3. 3. 6. 7. 9. 3. 8  LIMITATIONS 


None. 


3. 3. 6. 7. 9. 3. 9  LLCSC  DESIGN 


None. 


3.3.6.7.9.3.10  UNIT  DESIGN 

3.3.6.7.9.3.10.1  REINITIALIZE  UNIT  DESIGN 

This  procedure  reinitializes  the  increment  variable  and  the  increment  amount. 


3.3.6.7.9.3.10.1.1  REQUIREMENTS  ALLOCATION 
See  package  specification. 


3.3.6.7.9.3.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.7.9.3.10.1.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description 

I 

| Initial  Value 

Real  Type 

in 

| Initial  value  for 

incrementorj 

| Increment_Amount 

Real_Type 

in 

| Amount  by  which  to 

increment  j 
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3.3.6.7.9.3.10.1.4  LOCAL  DATA 
None. 


3.3.6.7.9.3.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.7.9.3.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Reinitialize  (Initial_Value  :  in  Real_Type; 

Increment_Amount  :  in  Real_Type)  is 

begin 

Increment_Variable  :=>  Initial_Value; 

Amount_of_Increment  :=  Increment_Amount; 
end  Reinitialize; 

3.3.6.7.9.3.10.1.7  UTILIZATION  OP  OTHER  ELEMENTS 
•  None. 

3.3.6.7.9.3.10.1.8  LIMITATIONS 
None. 


3.3.6.7.9.3.10.2  INCREMENT  UNIT  DESIGN 

This  procedure  increments  the  stored  increment  variable  by  the  increment  amount 
and  returns  the  new  value  of  the  increment  variable. 


3.3.6.7.9.3.10.2.1  REQUIREMENTS  ALLOCATION 
See  package  specification. 


3.3.6.7.9.3.10.2.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.7.9.3.10.2.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 
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The  following  table 

describes 

this  unit's  formal  parameters: 

|  Name 

Type 

|  Mode  |  Description  | 

|<returned  value> 

Real_Type 

|  out  |new  value  of  increment  var.  | 

3.3.6.7.9.3.10.2.4 

LOCAL  DATA 

None. 


3.3.6.7.9.3.10.2.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.7.9.3.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Increment  return  Real_Type  is 
begin 

—  Increment  and  return  new  value 

IncrementVariable  Increment_Variable  +  Amount_of_Increment; 
return  Increment_Variable; 

end  Increment; 


3.3.6.7.9.3.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  defined  in  this  part's  parent 
component  and  used  by  this  part: 

Data  types: 

The  following  table  summarizes  the  LLC  types  required  by  this  part: 


|  Name 

|  Description  | 

|  Element  JType 

|  Type  of  the  Incrementor  variable  | 

Data  objects: 

The  following  table  summarizes  the  LLC  objects  required  by  this  part: 
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|  Name 

Type 

|  Description  | 

|  Increment  Variable 
|  Amount  of  Increment 

1 

Real  Type 
Real  Type 

|  Variable  being  incremented  | 
j  Amount  by  which  incrementor  is  j 
|  increased  each  time  , 

3.3.6.7.9.3.10.2.8  LIMITATIONS 
None. 

3. 3. 6. 7. 9. 4  DECREMENTOR  (BODY)  PACKAGE  DESIGN  (CATALOG  #P32-0) 

This  generic  package  provides  the  capability  to  initialize  and/or  reinitialize 
a  variable  that  is  to  be  decremented,  select  a  value  to  be  used  as  an 
decrementor,  and  decrement  the  variable  accordingly. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 

3. 3. 6. 7. 9. 4.1  REQUIREMENTS  ALLOCATION 

This  LLCSC  meets  CAMP  requirement  R121. 

t 

3. 3. 6. 7. 9. 4. 2  LOCAL  ENTITIES  DESIGN 
None. 

3. 3. 6. 7. 9. 4. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

|  Base  Type  | 

Description  | 

| Real_Type 

Igener  float | 

Type  of  the  decrementor  variable  | 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


* 
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|  Name 

1  Type 

| Model  Description  | 

| Initial  Value  |Real  Type 

| Decrement  Amount  |Real  Type 

|  in  | Initial  decrementor  value  | 

j  in  j Amount  by  which  to  decrement  | 

3.3.6. 7. 9. 4. 4 

LOCAL  DATA 

Data  objects: 

The  following 

table  describes 

the  object  used  local  to  this  package: 

|  Name 

1  Type 

|  Description  | 

| Decrement 
Variable 

1  Amount  of 
j  Decrement 

|Real  Type 

1 

[Storage  of  the  decremented  variable  | 

I  i 

1 

|Real  Type 

1 

| Storage  of  decrement  amount  ! 

1  1 

3. 3. 6. 7. 9. 4. 5  PROCESS  CONTROL 


Not  applicable. 


3. 3. 6. 7. 9. 4. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
separate  (General_Purpose_Math) 
package  body  Decrementor  is 


—  -Data  Objects- 


—  —  Each  of  these  objects  is  initialized  to  the  value  given  during  instantiation 

Araount_of_Decrement  :  Real_Type  :»  Decrement_Amount; 

Decrement_Variable  :  Real_Type  :=  Initial_Value; 


end  Decrementor; 


3.3.6. 7. 9. 4. 7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 
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3. 3.6. 7. 9.4.8  LIMITATIONS 
None. 

3. 3. 6. 7. 9. 4. 9  LLCSC  DESIGN 
None. 

3.3.6.7.9.4.10  UNIT  DESIGN 

3.3.6.7.9.4.10.1  REINITIALIZE  UNIT  DESIGN 

This  procedure  reinitializes  the  decrement  variable  and  the  decrement  amount. 

3.3.6.7.9.4.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R121. 

3.3.6.7.9.4.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.7.9.4.10.1.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

| Initial  Value 

|Real  Type 

1  in 

| Initial  value  for  decrementor | 

j  Decrement_Amount 

j  Real_Type 

1  in 

j Amount  by  which  to  decrement  j 

3.3.6.7.9.4.10.1.4 

LOCAL  DATA 

None. 

3.3.6.7.9.4.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.7.9.4.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Reinitialize  (Initial_Value  :  in  Real_Type; 

Decrement  Amount  :  in  Real  Type)  is 
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begin 

Decrement_Variable  :=  Ini tial_Value ; 

Amount_of  Decrement  :=  Decrement_Amount ; 
end  Reinitialize; 

3.3.6.7.9.4.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  LLC  ELEMENTS: 

The  following  tables  describe  the  elements  defined  in  this  part's  parent 
component  and  used  by  this  part: 

Data  types: 

The  following  table  summarizes  the  LLC  types  required  by  this  part: 


|  Name 

|  Description  | 

|  Element  Type 

|  Type  of  the  Decrementor  variable  | 

Data  objects: 

The  following  table  summarizes  the  LLC  objects  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Decrement_Variable 
j  Amount  of  Decrement 

1 

|  Real_Type 
j  Real  Type 

1 

|  Variable  being  decremented  | 

|  Amount  by  which  decrementor  is  j 
decreased  each  time  j 

3.3.6.7.9.4.10.1.8  LIMITATIONS 
None. 

3.3.6.7.9.4.10.2  DECREMENT  UNIT  DESIGN 

This  procedure  decrements  the  stored  decrement  variable  by  the  decrement  amount 
and  returns  the  new  value  of  the  decrement  variable. 

3.3.6.7.9.4.10.2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R121. 
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3.3.6.7.9.4.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.7.9.4.10.2.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 


The  following  table  describes 

this  unit 

's  formal  parameters: 

|  Name 

1  Type 

|  Mode 

|  Description  | 

| <re turned  value> 

| Real_Type 

|  out 

|nev  value  of  decrement  var.  | 

3.3.6.7.9.4.10.2.4 

LOCAL  DATA 

None. 

3.3.6.7.9.4.10.2.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.7.9.4.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Decrement  return  Real_Type  is 
begin 

—  Decrement  and  return  new  value 

Decrement_Variable  Decrement_Variable  -  Amount_of_Decrement; 
return  Decrement_Variable; 

end  Decrement; 


3.3.6.7.9.4.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3.3.6.7.9.4.10.2.8  LIMITATIONS 


None 
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3. 3. 6. 7. 9. 5  RUNNING_AVERAGE  (BODY)  PACKAGE  DESIGN  (CATALOG  #P33-0) 

This  generic  package  provides  the  capability  to  initialize  a  sum  and/or  a  count 
and  to  maintain  a  running  average.  A  reinitialization  routine  is  provided  to 
reinitialize  the  sum  and  count.  An  averaging  routine  is  provided  to  perform 
the  running  sum. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3. 3. 6. 7. 9. 5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R142 


3. 3. 6. 7. 9. 5. 2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3.6. 7. 9. 5. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  generic  formal  parameters  were  defined  in  this  LLC's  package 
specification: 


|  Name 

|  Base  Type| 

Description  | 

| Real_Type 

|gen.  float | 

Type  of  the  running  average  var.  | 

Data  objects: 

The  following 

table  describes 

the  generic  formal  objects  required  by 

|  Name 

1  Type 

| Model  Description  | 

| Initial  Sum 

|Real  Type 

|  in  | Initial  running  3um  | 

|Initial_Count 

| INTEGER 

|  in  j Initial  _#  of  data  points 

Subprograms: 

The  following  table  describes  the  generic  formal  subprograms  required  by  this 
LLCSC: 


|  Name 

1  Type 

|  Description  | 

|’V" 

| function 

|  Real_Type  :=  Real_Type  /  Integer  | 
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3. 3. 6. 7. 9. 5. 4  LOCAL  DATA 
Data  objects: 

The  following  data  objects  are  defined  local  to  this  part: 

|  Name  |  Type  |  Description  | 

| Sum  |Real_Type  (Sum  of  all  measurements  to  this  point  | 

I  Count  jReal_Type  (Number  of  measurements  to  this  point  | 


3-3. 6. 7. 9. 5. 5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 7. 9. 5. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
separate  (General_Purpose_Math) 
package  body  Running_Average  is 

-  Declare  Sum  and  Count  variable  and  initialize  them  to  values  given  at 

—  —  instantiation 


Sum  :  Real_Type  Initial_Sum; 

Count  :  INTEGER  :<■  Initial  Count; 


end  Running_Average; 


3. 3. 6. 7. 9. 5. 7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3. 3. 6. 7. 9. 5. 8  LIMITATIONS 
None. 


3. 3. 6. 7. 9. 5. 9  LLCSC  DESIGN 


None. 


3.3.6.7.9.5.10  UNIT  DESIGN 
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3.3.6.7.9.5.10.1  REINITIALIZE  UNIT  DESIGN 

This  procedure  reinitializes  the  running  sum  and  count  along  with  the  type  of 
actions  that  will  be  requested  (i.e.,  Sum,  Count,  or  both) 


3.3.6.7.9.5.10.1.1  REQUIREMENTS  ALLOCATION 
None. 


3.3.6.7.9.5.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.7.9.5.10.1.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

| Initial  Sum 

|Real  Type 

1  in 

| Starting  sum  | 

|Initial_Count 

j  Real_Type 

1  in 

| Starting  count  j 

3.3.6.7.9.5.10.1.4  LOCAL  DATA 


None. 


3.3.6.7.9.5.10.1.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.7.9.5.10.1.6  PROCESSING 


The  following  describes  the  processing  performed  by  this  part: 


procedure  Reinitialize  (Initial_Sum  :  in  Real_Type; 

Initial  Count  :  in  INTEGER)  is 


begin 


Sum  :=  Initial_Sum; 
Count  :=  Initial  Count; 


end  Reinitialize; 
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3. 3. 6. 7.*  5.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.7.9.5.10.1.8  LIMITATIONS 
None. 

3.3.6.7.9.5.10.2  REINITIALIZE  UNIT  DESIGN 
This  procedure  reinitializes  the  count. 

3.3.6.7.9.5.10.2.1  REQUIREMENTS  ALLOCATION 
None. 

3.3.6.7.9.5.10.2.2  LOCAL  OTITIES  DESIGN 
None. 

3.3.6.7.9.5.10.2.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

| Initial_Count 

| Real_Type 

1  in 

| Starting  count  | 

3.3.6.7.9.5.10.2.4  LOCAL  DATA 
None. 

3.3.6.7.9.5.10.2.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.7.9.5.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Reinitialize  (Initial_Count  :  in  INTEGER)  is 
begin 


Count  :  =  Initial  Count; 
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end  Reinitialize; 


3.3.6.7.9.5.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.7.9.5.10.2.8  LIMITATIONS 


None. 


3.3.6.7.9.5.10.3  CURRENT_AVERAGE  UNIT  DESIGN 

This  unit  calculates  the  current  running  average  given  input  of  a  new  value. 


3.3.6.7.9.5.10.3.1  REQUIREMENTS  ALLOCATION 
None. 


3.3.6.7.9.5.10.3.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.7.9.5.10.3.3  INPUT/OUTPUT 
FORMAL  PARAMETERS  .* 


The  following  table 

describes 

this  unit 

's  formal  parameters: 

|  Name 

1  Type 

|  Mode 

|  Description  | 

|New  Value 

jReal  Type 

1  in 

|Nev  value  to  sum  j 

|<returned  value> 

j  Real_Type 

|  out 

|New  running  average  1 

3.3.6.7.9.5.10.3.4  LOCAL  DATA 


None. 


3.3.6.7.9.5.10.3.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.7.9.5.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Current_Average  (New_Value  :  Real_Type)  return  Real_Type  is 
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begin 

—  Do  average  calculation 

Sum  :=  Sum  +  Ne'/_Value; 

Count  :=  Count  +  1; 

return  Sum  /  Count; 

end  Current_Average; 

3.3.6.7.9.5.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.7.9.5.10.3.8  LIMITATIONS 
None. 


3. 3. 6. 7. 9. 6  ACCUMULATOR  PACKAGE  DESIGN  (CATALOG  #P34-0) 

This  generic  package  provides  a  set  of  operations  for  maintaining  an 
accumulation  of  a  subject  variable. 

The  decomposition  for  this  part  is  the  same  as  that  shovn  in  the  Top-Level 
Design  Document. 


3.3.6. 7.9.6. 1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R114. 


3. 3. 6. 7. 9. 6. 2  LOCAL  ENTITIES  DESIGN 
None. 


3. 3. 6. 7. 9. 6. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  generic  formal  types  were  defined  in  this  LLCSC's  package 
specification: 

|  Name  |  Base  Type  |  Description  | 

|Element_Type  (generic  float |Type  of  the  variable  being 
j  j  accumulated. 
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Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

| Mode |  Description  | 

| Initial  Value 

|Real  Type 

|  in  | Initial  accumulator  value  | 

3. 3. 6. 7. 9. 6. 4 

LOCAL  DATA 

Data  objects: 

The  following  data  objects  are 

maintained  by  this  part: 

|  Name 

1  Type 

|  Description 

|  Accumulated_Value | Element_Type | Current  value  of  the  accumulator 


3. 3. 6. 7. 9. 6. 5  PROCESS  CONTROL 
Not  applicable. 

3. 3. 6. 7. 9. 6. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
separate  (General_Purpose_Math) 
package  body  Accumulator  is 

—  —  Declare  accumulator  variable  and  set  it  to  the  value  given  during 

—  —  instantiation 

Accumulated_Value  :  Element_Type  Initial_Value; 
end  Accumulator; 

3. 3. 6. 7. 9. 6. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 3. 6. 7. 9. 6. 8  LIMITATIONS 


None. 


CAMP  Software  Detailed  Design  Document 


Page  1365 


3. 3. 6. 7. 9. 6. 9  LLCSC  DESIGN 
None. 

3.3.6.7.9.6.10  UNIT  DESIGN 
3.3.6.7.9.6.10.1  REINITIALIZE  UNIT  DESIGN 

This  procedure  is  used  to  reinitialize  the  accumulator  variable. 


3.3.6.7.9.6.10.1.1 

REQUIREMENTS  ALLOCATION 

None. 

3.3.6.7.9.6.10.1.2 

LOCAL  ENTITIES  DESIGN 

None. 

3.3:6.7.9.6.10.1.3 

INPUT/OUTPUT 

FORMAL  PARAMETERS: 

The  following  table 

describes  this  unit's  formal  parameters: 

|  Name 

|  Type  |  Mode  |  Description  | 

| Initial  Value 

1 

|Element_Type|  in  | Value  to  vhich  accumulator  | 

|  |  j  will  be  initialized  j 

3. 3. 6. 7  9.6.10.1.4 

LOCAL  DATA 

None. 

3.3.6.7.9.6.10.1.5 

PROCESS  CONTROL 

Not  applicable. 

3.3.6.7.9.6.10.1.6 

PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Reinitialize  (Initial_Value  :  in  Element_Type)  is 
begin 

Accumulated  Value  :=  Initial  Value; 


end  Reinitialize; 
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3.3.6.7.9.6.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.7.9.6.10.1.8  LIMITATIONS 
None. 

3.3.6.7.9.6.10.2  ACCUMULATE  UNIT  DESIGN 

This  unit  is  a  function  which  adds  an  input  value  to  the  Accumulator 


3.3.6.7.9.6.10.2.1 

REQUIREMENTS  ALLOCATION 

None. 

3.3.6.7.9.6.10.2.2 

LOCAL  ENTITIES  DESIGN 

None. 

3.3.6.7.9.6.10.2.3 

INPUT/OUTPUT 

FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 

|  Name 

|  Type  |  Mode  |  Description  | 

|Nev  Value 

1 

|Element_Type|  in  | Value  to  which  accumulator  | 

I  j  j  is  set  | 

3.3.6.7.9.6.10.2.4 

LOCAL  DATA 

None. 

3.3.6.7.9.6.10.2.5 

PROCESS  CONTROL 

Not  applicable. 

3.3.6.7.9.6.10.2.6 

PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Accumulate  (Nev_Value  :  in  Element_Type)  is 
begin 

—  Add  input  value  to  accumulator 
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Accumulated_Value  :=  Accumulated_Value  +  New_Value; 
end  Accumulate; 


3.3.6.7.9.6.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.7.9.6.10.2.8  LIMITATIONS 
None. 

3.3.6.7.9.6.10.3  ACCUMULATE  UNIT  DESIGN 

This  unit  is  a  function  which  adds  an  input  value  to  the  Accumulator  and 
returns  the  new  accumulator  value. 

3.3.6.7.9.6.10.3.1  REQUIREMENTS  ALLOCATION 
None . 

k 

9  3.3.6.7.9.6.10.3.2  LOCAL  ENTITIES  DESIGN 

None. 

3.3.6.7.9.6.10.3.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


j  Name 

1  Type  | 

Mode  |  Description  | 

|Nev  Value 

1  ' 

| Element  Type| 

1  "  1 

in  |Value  to  which  accumulator  | 

is  set  j 

3.3.6.7.9.6.10.3.4  LOCAL  DATA 
None. 


3.3.6.7.9.6.10.3.5  PROCESS  CONTROL 
Not  applicable. 


{■>1 
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3.3.6.7.9.6.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Accumulate 

(New_Value  :  in  Element_Type; 

Retrieved_Value  :  out  Element_Type)  is 

begin 

—  Add  input  value  to  accumulator 
Accumulated_Value  :=*  Accumulated_Value  +  New_Value; 

—  return  new  accumulator  value 
Retrieved_Value  :*  Accumulated_Value; 
end  Accumulate; 


3.3.6.7.9.6.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.7.9.6.10.3.8  LIMITATIONS 
None. 

3.3.6.7.9.6.10.4  RETRIEVE  UNIT  DESIGN 

This  unit  is  a  function  which  returns  the  current  value  of  the  accumulator. 

3.3.6.7.9.6.10.4.1  REQUIREMENTS  ALLOCATION 
None. 

3.3.6.7.9.6.10.4.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.7.9.6.10.4.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

|  Type  |  Mode 

|  Description  | 

|<returned  value> 

|Element_Type|  out 

| Current  value  of  Accumulator! 
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3.3.6.7.9.6.10.4.4  LOCAL  DATA 
None. 

3.3.6.7.9.6.10.4.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.7.9.6.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Retrieve  return  Element_Type  is 
begin 

—  Retrieve  Accumulator  Value; 
return  Accumulated_Value; 
end  Retrieve; 

3.3.6.7.9.6.10.4.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.7.9.6.10.4.8  LIMITATIONS 
None. 

3. 3. 6. 7. 9. 7  CHANGE  ACCUMULATOR  PACKAGE  DESIGN  (CATALOG  #P36-0) 

This  generic  package  combines  the  operations  of  a  change  calculator  and  an 
accumulator;  i.e.,  it  provides  a  set  of  operations  for  maintaining  the  running 
accumulation  of  a  change  to  a  subject  variable. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 

3. 3. 6. 7. 9. 7.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R115. 

3. 3. 6. 7. 9. 7. 2  LOCAL  ENTITIES  DESIGN 


None. 
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3. 3. 6. 7. 9. 7. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  generic  formal  types  were  defined  in  this  LLCSC's  package 
specification: 


|  Name  |  Base  Type  |  Description  | 

|Element_Type  | generic  float | Type  of  the  variable  being  | 

I  j  j  accumulated  and  tracked  j 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


Name  |  Type  |Mode|  Description  | 


|Initial_PV  |Element_Typ|  in  Initial  previous  value 

jlnitialAccumula-  |Element_Typj  in  Initial  accumulator  value 
j  tor_Value  j  ! 


3. 3. 6. 7. 9. 7. 4  LOCAL  DATA 
Data  objects: 

The  following  data  objects  are  maintained  by  this  part: 


Name  |  Type  |  Description  | 


|Previous_Value  |Element_Type| Change  calculator  variable 
j Accumulator  |Element~Type j Accumulator  variable 
|PV_Is_Initializedj BOOLEAN  I  Flag  determining  if  the  Previous 
j  j  Value  variable  is  initialized 

j Accumulator_is_  j BOOLEAN  I  Flag  determining  if  the  Accumulator 
j  Initialized  |  j  variable  is  initialized 


3. 3. 6. 7. 9. 7. 5  PROCESS  CONTROL 


Not  applicable. 


3. 3. 6. 7. 9. 7. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
separate  (General_Purpose_Math) 
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package  body  Change_Accumulator  is 

—  —  Declare  accumulator  and  previous  value  objects  and  initialize  them  to 

—  —  values  given  during  instantiation 

Accumulator  :  Element_Type  :=  Initial_Accumulator  Value; 

Previous_Value  :  Element_Type  :=  Initial  PreviousVaTue; 

end  Change_Accumulator ; 

3. 3. 6. 7. 9. 7. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 3. 6. 7. 9. 7. 8  LIMITATIONS 
None. 

3. 3. 6. 7. 9. 7. 9  LLCSC  DESIGN 
None. 

3.3.6.7.9.7.10  UNIT  DESIGN 

3.3.6.7.9.7.10.1  REINITIALIZE  UNIT  DESIGN 

This  procedure  is  used  to  initialize  the  accumulator 

3.3.6.7.9.7.10.1.1  REQUIREMENTS  ALLOCATION 
None. 

3.3.6.7.9.7.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.7.9.7.10.1.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 

|  Name  |  Type  |  Mode  |  Description  | 

|Initial_Accumulatr|Element_Type|  in  | Value  to  which  accumulator  | 

Value  j  |  j  will  be  initialized  j 
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3.3.6.7.9.7.10.1.4  LOCAL  DATA 
None. 

3.3.6.7.9.7.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.7.9.7.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Reinitialize  (Initial_Accumulator_Value  :  in  Element_Type)  is 
begin 

Accumulator  :=  Initial_Accumulator_Value; 
end  Reinitialize; 


3.3.6.7.9.7.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.7.9.7.10.1.8  LIMITATIONS 
None. 

3.3.6.7.9.7.10.2  REINITIALIZE  UNIT  DESIGN 

This  procedure  is  used  to  initialize  the  accumulator  and  previous  value 
variable. 

3.3.6.7.9.7.10.2.1  REQUIREMENTS  ALLOCATION 
None. 

3.3.6.7.9.7.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.7.9.7.10.2.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 
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Name  |  Type  |  Mode  |  Description 


|Initial_Accumulatr|Element_Type|  in  (Value  to  which  accumulator  | 
|  _Value  j  j  (  will  be  initialized  ( 
|Initial_Previous_  |Element_Type(  in  |Value  to  which  previous  | 
j  Value  j  |  |  value  will  be  initialized! 


3.3.6.7.9.7.10.2.4  LOCAL  DATA 


None. 


3.3.6.7.9.7.10.2.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.7.9.7.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Reinitialize  (Initial_Accumulator  Value  :  in  Element_Type; 

Initial_Previous_VaIue  :  in  ElementType)  is 

begin 

PreviousValue  :«  Initial_Previous_Value; 

Accumulator  Initial_Accumulator_Value; 
end  Reinitialize; 


3.3.6.7.9.7.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 

1 

None. 


3.3.6.7.9.7.10.2.8  LIMITATIONS 


None. 


3.3.6.7.9.7.10.3  A CCUMULATE_CHANGE  UNIT  DESIGN 

This  unit  is  a  function  which  accumulates  the  change  in  the  subject  variable. 


3.3.6.7.9.7.10.3.1  REQUIREMENTS  ALLOCATION 


None. 
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3.3.6.7.9.7.10.3.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.7.9.7.10.3.3 

INPUT/OUTPUT 

FORMAL  PARAMETERS: 

The  following  table 

describes  this  unit 

's  formal  parameters: 

|  Name 

|  Type  |  Mode 

|  Description  | 

|New  Value 

| Element  Type|  in 

|New  value  of  the  subject 

1 

1  "  1 

j  variable  j 

3.3.6.7.9.7.10.3.4 

LOCAL  DATA 

None. 

3.3.6.7.9.7.10.3.5 

PROCESS  CONTROL 

Not  applicable. 

3.3.6.7.9.7.10.3.6 

PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Accumulate_Change  (New_Value  :  in  Element_Type)  is 
begin 

—  Add  change  to  accumulator  and  reset  PV 

Accumulator  Accumulator  +  Nev_Value  -  Previous_Value; 
Previous_Value  :=  Nev_Value; 

end  Accumulate_Change; 

3.3.6.7.9.7.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.7.9.7.10.3.8  LIMITATIONS 


None. 
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3.3.6.7.9.7.10.4  ACCUMULATE_CHANGE  UNIT  DESIGN 

This  unit  is  a  procedure  which  accumulates  the  change  in  the  subject  variable 
and  returns  the  new  value  of  the  accumulator. 


3.3.6.7.9.7.10.4.1  REQUIREMENTS  ALLOCATION 


None. 


3.3.6.7.9.7.10.4.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.7.9.7.10.4.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

1  Type  | 

Mode 

|  Description  | 

|New  Value 

1  " 

| Element  Type| 

1  '  1 

in 

|New  value  of  the  subject  | 

1  variable  j 

| Retrieved  Accumu- 
|  latorValue 

| Element  Type| 

1  "  1 

out 

|New  accumulator  value  j 

1  1 

3.3.6.7.9.7.10.4.4  LOCAL  DATA 


None. 


3.3.6.7.9.7.10.4.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.7.9.7.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Accumulate  Change 

(Nev_VaIue  :  in  Element_Type; 

Retrieved_Accumulator_Value  :  out  Element_Type)  is 

begin 

—  Add  change  to  accumulator  and  reset  PV 

Accumulator  :■  Accumulator  +  Nev_Value  -  Previous_Value; 
Previous_Value  :-  New_»alue; 

—  Return  new  accumulated  value 
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Retrieved_Accumulator_Value  Accumulator; 
end  Accumulate_Change; 

3.3.6.7.9.7.10.4.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.7.9.7.10.4.8  LIMITATIONS 
None. 

3.3.6.7.9.7.10.5  RETRIEVE_ACCUMULATION  UNIT  DESIGN 

This  unit  is  a  function  which  returns  the  current  value  of  the  accumulated 
change  to  the  subject  variable. 

3.3.6.7.9.7.10.5.1  REQUIREMENTS  ALLOCATION 
None. 

3.3.6.7.9.7.10.5.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.7.9.7.10.5.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

|  Type  |  Mode  |  Description  | 

|<returned  value> 

|Element_Type|  out  | Current  value  of  Accumulator! 

3.3.6.7.9.7.10.5.4  LOCAL  DATA 


None. 


3.3.6.7.9.7.10.5.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.6.7.9.7.10.5.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Retrieve_Accumulation  return  Element_Type  is 
begin 

return  Accumulator; 
end  Retrieve_Accumulation; 

3.3.6.7.9.7.10.5.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.7.9.7.10.5.8  LIMITATIONS 
None. 

3.3.6.7.9.7.10.6  RETRIEVE_PREVIOUS_VALUE  UNIT  DESIGN 

This  unit  is  a  function  which  returns  the  value  of  the  Previous  Value  variable. 

3.3.6.7.9.7.10.6.1  REQUIREMENTS  ALLOCATION 
None. 

3.3.6.7.9.7.10.6.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.7.9.7.10.6.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

1  Type  | 

Mode  |  Description  | 

|<returned  value> 

|Element_Type| 

out  (Current  value  of  PV  variable | 

3.3.6.7.9.7.10.6.4  LOCAL  DATA 


None. 
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3.3.6.7.9.7.10.6.5  PROCESS  CONTROL 
N't  applicable. 

3.3.6.7.9.7.10.6.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  Retrieve_Previous_Value  return  Element_Type  is 
begin 

return  Previous_Value; 
end  RetrievePreviousValue; 

3.3.6.7.9.7.10.6.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.7.9.7.10.6.8  LIMITATIONS 
None. 

3. 3. 6. 7. 9. 8  CHANGE_CALCULATOR  PACKAGE  DESIGN  (CATALOG  #P35-0) 

This  generic  package  provides  a  set  of  operations  for  tracking  the  change  in  a 
given  variable. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 

3. 3. 6. 7. 9. 8.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R113. 

3. 3. 6. 7. 9. 8. 2  LOCAL  ENTITIES  DESIGN 
None. 

3. 3. 6. 7. 9. 8. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  data  types  are  defined  in  the  LLCSC  specification: 
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|  Name 

1 

|  Base  Type  | 

1  . . . .  _  _  | ..  ..  .  .. 

Description 

_  _  _  _  1 

| 

| Element  JType 

1  1 
(generic  float (Type  of 

1 

the  variable  being  traded | 

3. 3. 6. 7. 9. 8. 4 

LOCAL  DATA 

Data  objects: 

The  following  data  objects  are  maintained 

by  this  part: 

» 

3 

ft 

1  Type  | 

_ 1 _ 1 _ 

Description 

I Previous_Value  j Element_Type j Value  which  is  stored  for  comparison  j 
!  j  j  later  on  j 

3. 3. 6. 7. 9.8. 5  PROCESS  CONTROL 
Not  applicable. 

3. 3. 6. 7. 9. 8. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
separate  (GeneralPurposeMath) 
package  body  Change_Calculator  is 

—  —  Declare  previous  value  object  and  initialize  it  to  value  specified 

—  —  during  instantiation 

Previous_Value  :  Element_Type  :=  Initial_Value; 

end  Change_Calculator ; 

3. 3. 6. 7. 9. 8. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 3. 6. 7. 9. 8. 8  LIMITATIONS 


None. 
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3. 3. 6. 7. 9. 8. 9  LLCSC  DESIGN 
None. 

3.3.6.7.9.8.10  UNxT  DESIGN 

3.3.6.7.9.8.10.1  REINITIALIZE  UNIT  DESIGN 

This  procedure  is  used  to  reinitialize  the  previous  value  variable. 

3.3.6.7.9.8.10.1.1  REQUIREMENTS  ALLOCATION 
None. 

3.3.6.7.9.8.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.7.9.8.10.1.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 


The  following  table 

describes  this  unit's  formal  parameters: 

Name 

Type  |  Mode  |  Description 

1  1  . .  . 

Initial_Value 

1  I 

Element_Type  |  in  |  Value  to  which  Prev  Value 

1  will  be  initialized 

3.3.6.7.9.8.10.1.4  LOCAL  DATA 
None. 

3.3.6.7.9.8.10.1.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.7.9.8.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
procedure  Reinitialize  (Ini tial_Value  :  in  Element_Type)  is 
begin 

Previous  Value  :«  Initial  Value; 


end  Reinitialize; 
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3.3.6.7.9.8.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3.3.6.7.9.8.10.1.8  LIMITATIONS 


None. 


3.3.6.7.9.8.10.2  CHANGE  UNIT  DESIGN 

This  unit  is  a  function  which  —  computes  and  returns  the  change  in  the 
PreviousValue  variable  since  the  last  call  to  this  function;  and  —  set  the 
value  of  Previous  Value  to  the  input  value. 


3.3.6.7.9.8.10.2.1  REQUIREMENTS  ALLOCATION 


None. 


3.3.6.7.9.8.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.7.9.8.10.2.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


Name 

f  Type  i 

Mode 

|  Description 

New  Value 

| Element  Type! 

in 

j Value  to  which  Prev  Value 

is  compared  and  set  to 

<re turned  value> 

|Element_Type| 

out 

j Change  in  value  since  the 
!  last  call  to  this  functn 

3.3.6.7.9.8.10.2.4  LOCAL  DATA 
Data  objects: 

The  following  data  objects  are  maintained  by  this  unit. 

|  Name  |  Type  |  Description  | 

| - 1 - 1 - 1 

|Change_Amount  |Element_Type| Calculated  change  since  Previous_Val| 
j  j  j  was  last  updated.  j 


CAMP  Software  Detailed  Design  Document 


Page  1382 


3.3.6.7.9.8.10.2.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.7.9.8.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Change  (New_Value  :  Element_Type)  return  Element_Type  is 
Change_Amount  :  Element_Type; 
begin 

—  Calculate  change  and  update  Previous_Value 

ChangeAmount  Nev_Value  -  Previous  Value; 

PreviousValue  :=  New_Value; 

—  return  Change 

return  Change_Amoun t ; 

end  Change; 


3.3.6.7.9.8.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
None . 

3-3.6.7.9.8.10.2.8  LIMITATIONS 
None. 

' 

3.3.6.7.9.8.10.3  RETRI EVE_VALUE  UNIT  DESIGN 

This  unit  is  a  function  which  returns  the  current  value  of  the  Previous_Value 
variable. 


3.3.6.7.9.8.10.3.1  REQUIREMENTS  ALLOCATION 
None. 


3.3.6.7.9.8.10.3.2  LOCAL  ENTITIES  DESIGN 


None. 
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3.3.6.7.9.8.10.3.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

|  . 

1  Type  | 

|  . . .  ! . 

Mode  |  Description  | 

1  . .  ....  1 

I 

| <re turned  value> 

1  1 
| Element_Type | 

| - — - “  | 

out  | Current  value  of  Prev_Value  | 

3.3.6.7.9.8.10.3.4  LOCAL  DATA 


None. 


3.3.6.7.9.8.10.3.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.7.9.8.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
function  RetrieveValue  return  Element_Type  is 
begin 

return  Previous_Value; 
end  Retrieve_Value; 

3.3.6.7.9.8.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.7.9.8.10.3.8  LIMITATIONS 
None. 


3. 3. 6. 7. 9. 9  INTEGRATOR  (BODY)  PACKAGE  DESIGN  (CATALOG  #P37-0) 

This  generic  package  provides  the  capability  to  manage  a  data  value  and 
integrate  it  across  time. 

The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 
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3. 3. 6. 7. 9. 9.1  REQUIREMENTS  ALLOCATION 
This  LLCSC  meets  CAMP  requirement  R124. 


3. 3. 6. 7. 9. 9. 2  LOCAL  ENTITIES  DESIGN 


None. 


3. 3. 6. 7. 9. 9. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  types  were  defined  in  the  package  specification: 


Name  |  Base  Type  |  Description  | 


| Dependent_Type  |generic  float |Type  of  the  dependent  variable  | 
j Independently pe  j generic  float j Type  of  the  independent  variable  j 
|Time_Interval  jgeneric  float |Type  of  the  delta  time  variable  j 


Data  objects: 

The  following  objects  were  defined  in  the  package  specification: 


|  Name  |  Type  |  Description  j 


Initial_Independ-  |Independent_  | Initial  value  for  independent 
ent  Value  j  Type  j  variable 

InitiaI_Dependent_|Dependent_  jlnitial  value  for  dependent 
Value  j  Type  j  variable 

Default_Delta_Time|Time_Interval|Default  time  between  integration 


3. 3. 6. 7. 9. 9. 4  LOCAL  DATA 


Data  objects: 

The  following  data  objects  are  maintained  by  this  package: 


|  Name  |  Type  |  Description  | 

|Dependent_Value  |Dependent_  |Last  value  of  the  dependent  variable  | 

I  I  Type  ;  i 

|Previous_Inde-  | Independent^ Last  value  of  the  independent  var.  [ 
j  pendent_Value  |  Type  j  j 
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3. 3. 6. 7. 9. 9. 5  PROCESS  CONTROL 
Not  applicable. 


3. 3. 6. 7. 9. 9. 6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
separate  (General_Purpose_Math) 
package  body  Integrator  is 

—  —  Declare  the  dependent  and  independent  objects  and  initialize  them  to  the 

—  —  values  specified  at  instantiation 

Dependent_Value  :  Dependent_Type  :=  Initial_Dependent_Value; 

Previous_Independent_Value  :  Independent_Type  Initial_Independent_Value; 

end  Integrator; 


3. 3. 6. 7. 9. 9. 7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3. 3. 6. 7. 9. 9. 8  LIMITATIONS 


None. 


3. 3. 6. 7. 9. 9. 9  LLCSC  DESIGN 


None. 


3.3.6.7.9.9.10  UNIT  DESIGN 

3.3.6.7.9.9.10.1  REINITIALIZE  UNIT  DESIGN 
This  procedure  reinitializes  the  integrator. 


3.3.6.7.9.9.10.1.1  REQUIREMENTS  ALLOCATION 
See  package  specification. 


3.3.6.7.9.9.10.1.2  LOCAL  ENTITIES  DESIGN 


None. 
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3.3.6.7.9.9.10.1.3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

1  Type  | 

Mode 

|  Description  | 

| Initial  Dependent 

[Dependent 

in 

[Initial  value  for  dependent  | 

|  Value 

I  Type 

1  variable  i 

[Initial  Indepen- 

[Independent  | 

in 

(initial  value  for  i 

j  dent  Value 

1  Type  | 

i  independent  variable 

3.3.6.7.9.9.10.1.4  LOCAL  DATA 


None. 


3.3.6.7.9.9.10.1.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.7.9.9.10.1.6  PROCESSING 


The  following  describes  the  processing  performed  by  this  part: 


procedure  Reinitialize 
begin 


(Initial_Dependent_Value 
Ini tial_Independent_Value 


:  in  Dependent_Type; 

:  in  Independent_Type)  is 


Dependent_Value  :=■  Initial_Dependent_Value; 
Previous_Independent_Value  :=  Ini tial_Independent_Value; 

end  Reinitialize; 


3.3.6.7.9.9.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.7.9.9.10.1.8  LIMITATIONS 


None. 


3.3.6.7.9.9.10.2  UPDATE  UNIT  DESIGN 

This  procedure  updates  the  value  of  the  independent  value  without  integrating 
the  dependent  value  across  time. 
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3.3.6.7.9.9.10.2.1  REQUIREMENTS  ALLOCATION 
See  package  specification. 

3.3.6.7.9.9.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.7.9.9.10.2,3  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

1  Type  | 

Mode 

|  Description  | 

| Current  Indepen- 

Independent  | 

in 

| Initial  value  for  | 

j  dent  Value 

1  Type  | 

independent  variable  j 

3.3.6.7.9.9.10.2.4 

LOCAL  DATA 

None. 

■ 

".3.6.7.9.9.10.2.5 

PROCESS  CONTROL 

Not  applicable. 

3.3.6.7.9.9.10.2.6 

PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

procedure  Update  (Current_Independent_Value  :  in  Independent_Type)  is 
begin 

Previous_Independent_Value  :-  Current_Independent_Value; 
end  Update; 


3.3.6.7.9.9.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.7.9.9.10.2.8  LIMITATIONS 


None. 
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3.3.6.7.9.9.10.3  INTEGRATE  UNIT  DESIGN 

This  function  performs  a  trapezoidal  integration  across  the  specified  time 
interval  (the  time  interval  can  default). 


3.3.6.7.9.9.10.3.1  REQUIREMENTS  ALLOCATION 
See  package  specification. 


3.3.6.7.9.9.10.3.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.7.9.9.10.3.3  INPUT/OUTPUT 


FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

1  Type 

Mode 

|  Description  | 

| Current  Indepen- 

| Independent 

in 

|New  value  of  independent  | 

dent  Value 

Type 

i  variable  j 

j Delta  Time 

|Time  Intervl 

in 

(Time  interval  to  integrate 

j  <re turned  value> 

j Dependent 

out 

(New  value  of  dependent 

1 

1  Type 

j  variable  | 

3.3.6.7.9.9.10.3.4  LOCAL  DATA 


None. 


3.3.6.7.9.9.10.3.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.7.9.9.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

function  Integrate  (Current  Independent_Value  :  Independent_Type; 

DeltaJTlme  :  Time_Interval  :-  Default_Delta_Time) 
return  Dependent_Type  is 

begin 

—  Integrate  new  independent  value  across  specified  time  interval 

Dependent_Value  :*  Dependent  Value 

+  ((Previous_Indepen<Ient_Value  +  Current_Independent_Value)  *  0.5) 
*  Delta  Time; 
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—  Update  previous  independent  value  and  return  new  dependent  value 

Previous_Independent_Value  :=  Current_Independent_Value; 
return  Dependent_Value; 

end  Integrate; 


3.3.6.7.9.9.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  defined  in  this  part's  parent 
component  and  used  by  this  part: 

Data  types: 

The  following  table  summarizes  the  LLC  types  required  by  this  part: 


|  Name 

Description  | 

(Dependent  Type 
j Independent_Type 
|Time_Interval 

Type  of  the  dependent  variable 
i  Type  of  the  independent  variable 

Type  of  the  delta  time  variable 

Data  objects: 

The  following  table  summarizes 

the  LLC  objects  required  by  this  part: 

|  Name 

Type 

|  Description  | 

|Default_Delta_ 

!  Time 

(Dependent  Value 

1 

| Previous_Inde- 
|  pendent_Value 

Time_ 

Interval 

Dependent 

Type 

Independent 

Type 

| Default  time  interval  sepecified 

during  package  instantiation  i 

|Last  value  of  the  dependent  variable  j 

1  1 

|Last  value  of  the  independent  var.  ( 

'1  1 

3.3.6.7.9.9.10.3.8  LIMITATIONS 


None. 


3.3.6.7.9.10  TWO_WAY_TABLE_LOOKUP  (BODY)  PACKAGE  DESIGN  (CATALOG  #P1078-0) 

This  package  provides  a  general  two  way  table  lookup.  These  routines  allow  the 
table  to  be  created  and  initialized,  or  an  already  existing  table  may  be  used. 
Either  variable  type  may  be  looked  up  in  the  table.  The  routines  return  a 
single  value,  interpolated  or  extrapolated  as  necessary. 
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The  decomposition  for  this  part  is  the  same  as  that  shown  in  the  Top-Level 
Design  Document. 


3.3.6.7.9.10.1  REQUIREMENTS  ALLOCATION 


N/A 


3.3.6.7.9.10.2  LOCAL  ENTITIES  DESIGN 


None. 


3.3.6.7.9.10.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description  | 

|  Indices 

INTEGER  or  Enumerated 

Type  to  index  the  table 

j  X  Values 

FLOAT 

Type  of  1  table  value 

j  Y  Values 

FLOAT 

Type  of  other  table  value 

j  Real 

FLOAT 

Type  for  intermediate  calculations 

Subprograms : 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

Type 

Description 

1 

W /* 

function 

Divide  operator  for  X  Values  / 

Y  Values  ->  Real  1 

•«/ W 

function 

Divide  operator  for  Y~Values  / 

X”Values  ->  Real 

function 

Divide  operator  for  X  Values  / 

X  Values  ->  Y  Values 

function 

Divide  operator  for  Y  Values  / 

Y  Values  ->  X~Values 

function 

Multiply  operator  for~X  Values 

*~Y  Values  ->  Real 

"*» 

function 

Multiply  operator  for  Y_Values 

*  X_Values  ->  Real 

3.3.6.7.9.10.4  LOCAL  DATA 


Data  types: 

The  following  table  describes  the  data  types  defined  by  this  part: 
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|  Name 

Range 

Description 

1 

|  X  Arrays 
j  Y  Arrays 
j  Tables 

Indices 

Indices 

Indices 

Array  type  for 
Array  type  for 
Type  for  Table 

1  type  of  values  in  table  | 
other  type  of  values  in  table  1 
of  X  and  Y  arrays  J 

Data  objects: 

The  following  table  describes  the  data  objects  maintained  by  this  part: 


|  Name 

1  Type 

Description  | 

|  Table 

|  record 

Table  of  X_Array  and  Y_Array  to  be  operated  on  | 

3.3.6.7.9.10.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.7.9.10.6  PROCESSING 


The  following  describes  the  processing  performed  by  this  part: 


separate  (General  Purpose_Math) 
package  body  Two_V?ay_Table_Lookup  is 


function  Inter_or_Extra_X  is  new  General_Purpose_Math. 

Interpolate  or_Extrapolate 

(IndepenHentType  ->  YValues , 
Dependent_Type  ->  X_Values); 

function  Inter_or_Extra_Y  is  new  General_Purpose_Math. 

Interpolate  or_Extrapolate 

( Indepenclen t_Type  ->  X_Values, 
Dependent_Type  *>  Y_Values); 

procedure  Initialize(  Table  :  out  Tables; 

Index  :  in  Indices; 

X  :  in  X_Values; 

Y  :  in  Y_Values  )  is 

begin 

Table. Table_X(  Index  )  :■  X; 

Table. Table~Y(  Index  )  Y; 
end  Initialize; 


function  Lookup_X  (  Table 

Input 


Tables; 

Y  Values  )  return  X  Values  is 


Higher_Dept  :  X_Values; 
Higher_Indept  :  Y_Values; 
Index  "  :  Indices; 


CAMP  Software  Detailed  Design  Document 


Page  1392 


Lower_Dept  :  X_Values; 

Lower_Indept  :  Y_Values; 

Result  :  X_Vaiues; 

begin 

—  if  the  input  value  is  out  of  bounds,  then  extrapolate  for  the 

—  required  value 

if  Input  <  Table. Table_Y(  Indices' FIRST)  then 
Lower_Indept:=  Table. Table  Y(  Indices' FIRST  ); 

Higher_Indept  :=  Table. Table  Y(  Indices'SUCC(Indices'FIRST)  ); 
Lover_Dept:=  Table. Table  X(  Indices 'FIRST  ); 

Higher_Dept  :  =  Table. Table  X(  Indices ' SUCC(Indices' FIRST)  ); 

Result  :=  Inter_or_Extra_XT  Input  =>  Input, 

Lover_Independent  =>  Lower_Indept, 

Higher  Independent  *>  Higher_Indept , 
Lower_Dependent  =>  Lower_Dept, 
Higher_Dependent  =>  Higher_Dept  ); 
elsif  Input  >  Table. Table_Y(  Indices' LAST)  then 
Higher_Indept  :=  Table. Table_Y(  Indices'LAST  ); 

Lower_Indept  :=  Table. Table_Y(  Indices' PRED( Indices' LAST)  ); 

Higher_Dept  :■  Table. Table  X(  Indices'LAST  ); 

Lover_Dept  Table. Table_X(  Indices' PRED( Indices 'LAST)  ); 

Result  Inter_or_Extra_X(  Input  ->  Input, 

Lower_Independent  ->  Lower  lndept , 
Higherlndependent  ■>  Higher  Indept, 
Lower_Dependent  ->  Lover_Dept, 
Higher_Dependent  ->  HigherDept  ); 

else  —  the  input  value  is  in  the  bounds  of  the  table 

—  Search  through  the  table  until  the  independent  entry  is  greater  than 

—  or  equal  to  the  Key  (Input)  value.  Note  that  the  value  will  be 

—  found  in  the  table  since  out-of-bounds  values  have  already  been 

—  checked  for.  Start  with  the  successor  of  the  first  element  so  that 
—  PRED  will  be  defined  if  Input  is  equal  to  the  first  element. 

Index  :=  Indices 'SUCC(  Indices 'FIRST  ); 

Find_Value: 

loop 

exit  when  (Table. Table_Y(  Index  )  >-  Input); 

Index  Indices' SUCC(~Index  ); 
end  loop  Find_Value; 

—  Save  the  table  values. 

Lower_Indept  :=  Table. Table_Y(  Indices' PRED(Index)  ); 

Lower_Dept  Table. Table_X(  Indices 'PRED(Index)  ); 

Higher_Indept  :=  Table. Table_Y(  Index  ); 

Higher_Dept  :=  Table. Table_X(  Index  ); 

—  Check  to  see  if  the  value  needs  to  be  interpolated  -  that  is, 

—  if  the  value  is  not  equal  to  one  of  the  boundary  values. 

if  (Input  *  Higher_Indept)  then 
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NjS 


t 


Result  := 
elsif  (Input 
Result  := 
else 

Result  := 


end  if; 
end  if; 

return  Result; 
end  LookupX; 


Higher_Dept ; 

=  Lower_Indept)  then 
Lower_Dept; 

—  Value  is  between,  so  interpolate 
Inter_or_Extra_X(  Input  =>  Input, 

Lower_Independent  =>  Lover_Indept , 
Higher_Independent  =>  Higher_Indept , 
Lower_Dependent  =>  Lower_Dept, 
Higher_Dependent  =>  Higher_Dept  ); 
—  Value  is  between7  so  interpolate 
the  input  value  is  in  the  bounds  of  the  table 


function  Lookup_Y  (  Table  :  Tables; 

Input  :  X  Values  )  return  Y  Values  is 


Higher_Dept 

Higherlndept 

Index 

Lower_Dept 

Lower_Indept 

Result 


Y_Values ; 
X_Values ; 
Indices; 
Y_Values ; 
X_Values ; 
Y  Values; 


begin 

—  if  the  input  value  is  out  of  bounds,  then  extrapolate  for  the 

—  required  value 

if  Input  <  Table. Table_X(  Indices' FIRST)  then 

Lower_Indepts-  Table. Table  X(  Indices 'FIRST  ); 

Higher  Indept  Table. Table  X(  Indices' SUCC(Indices' FIRST)  ); 

Lower_Bept:=  Table. Table  Y(  Indices' FIRST  ); 

Higher_Dept  :*  Table. Table  Y(  Indices'SUCC(Indices'FIRST)  ); 

Result  Inter_or_Extra_Yl  Input  ->  Input, 

Lover_Independent  »>  Lower_Indept, 
Higher_Independent  ->  Higher  Indept, 
Lower_Dependent  ->  Lower_Dept, 

Higher  Dependent  ->  Higher_Dept  ); 

elsif  Input  >  Table.  Table_X(  Indices 'EAST)  then 

Higher_Indept  :«  Table. Table  X(  Indices'LAST  ); 

Lower_Indept  :«  Table. Table  X(  Indices' PRED(Indices' LAST)  ); 

Higher_Dept  s»  Table. Table_Y(  Indices'LAST  ); 

Lower_Dept  s*  Table. Table_Y(  Indices' PRED(Indices' LAST)  ); 

Result  :■  Inter_or_Extra_Y(  Input  »>  Input, 

Lover_Independent  ->  Lover_Indept, 
Higher_Independent  ->  Higher_Indept, 

Love r_De pendent  ■>  Lover  Dept, 
Higher_Dependent  ->  Higher_Dept  ); 

else  --  the  input  value  is  in  the  bounds  of  the  table 

—  Search  through  the  table  until  the  independent  entry  is  greater  than 

—  or  equal  to  the  Key  (Input)  value.  Note  that  the  value  will  be 

—  found  in  the  table  since  out-of-bounds  values  have  already  been 

—  checked  for.  Start  with  the  successor  of  the  first  element  so  that 

—  PRED  will  be  defined  if  Input  is  equal  to  the  first  element. 
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Index  :=  Indices' SUCC(  Indices' FIRST  ); 

Find_Value: 

loop 

exit  when  (Table. Table_X(  Index  )  >=  Input); 

Index  :=  Indices' SUCC(  Index  ); 
end  loop  Find_Value; 

—  Save  the  table  values. 

Lower_Indept  Table. Table_X(  Indices 'PRED( Index)  ); 

Lower_Dept  :=»  Table. Table_Y(  Indices' PRED( Index)  ); 

Higher_Indept  :=  Table. Table  X(  Index  ); 

Higher_Dept  :=  Table. Table_Y(  Index  ); 

—  Check  to  see  if  the  value  needs  to  be  interpolated  -  that  is, 

—  if  the  value  is  not  equal  to  one  of  the  boundary  values. 


if  (Input  = 
Result  := 
elsif  (Input 
Result  :» 
else 

Result  :■ 


end  if; 
end  if; 

return  Result; 
end  Lookup_Y; 


Higher_Indept)  then 
Higher_Dept; 

*  Lover_Indept)  then 
i  Lower_Dept; 

—  Value  is  between,  so  interpolate 
Inter_or_Extra_Y(  Input  ->  Input, 

Loverlndependent  ->  Loverlndept, 
Hlgher_Independent  ->  Higher  Indept, 
Lover  Dependent  ->  LowerSept, 
HigherDependent  ->  Higher_Dept  ); 
—  Value  is  betveenT  so  interpolate 
the  input  value  is  in  the  bounds  of  the  table 


end  Two_Way_Table_Lookup; 


3.3.6.7.9.10.7  UTILIZATION  OF  OTHER  ELEMENTS 

UTILIZATION  OF  OTHER  ELEMENTS  IN  TOP  LEVEL  COMPONENT: 

The  following  tables  describe  the  elements  used  by  this  part  but  defined 
elsewhere  in  the  parent  top  level  component: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  subroutines  and  task  entries  required  by 
this  part, and  defined  elsewhere  in  the  parent  top  level  component: 


|  Name 

1  Type 

|  Source 

|  Description  | 

|  Interpolate  or  Extrapolate 

function 

I  General 

|  Allows  interpolation  or| 

1 

!  Purpose 

j  extrapolation  to  return j 

1 

Math 

|  a  single  value  j 
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3.3.6.7.9.10.8  LIMITATIONS 
None. 

3.3.6.7.9.10.9  LLCSC  DESIGN 
None. 

3.3.6.7.9.10.10  UNIT  DESIGN 
None. 


3.3.6.7.10  UNIT  DESIGN 

3.3.6.7.10.1  INTERP0LATE_0R_EXTRAP0LATE  (BODY)  UNIT  DESIGN  (CATALOG  #P39-0) 

This  part  is  a  generic  function  which  computes  the  linear  interpolation  between 
two  values. 


3.3.6.7.10.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R116. 


3.3.6.7.10.1.2  LOCAL  ENTITIES  DESIGN 
None. 


3.3.6.7.10.1.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  types  were  defined  in  the  package  specification: 


|  Name  |  Base  Type  |  Description  | 


| Independent_Type  | generic  float | Type  of  the  independent  variables 
|Dependent_Type  {generic  float j Type  of  the  dependent  variable 

(Dependent  over_  | generic  float j Result  of  Dependent  /  Independent 
j  Indepen<Ient_fype  j  | 


Subprograms : 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part: 
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|  Name  |  Type 


Description 


|  "/"  | function  | Dependent_Over  Independent_Type  := 

j  |  j  Dependent_Type  /  Independent_Type 

j  j function  j Dependent_Type  :=  Dependent  Over_ 

j  j  j  Independent_Type  *  Independent_Type 


FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

1  Type  | 

Mode 

1 

Description  | 

| Input 

1 

| Independent | 

: 

in 

1 

1 

Independent  value  for  which  a  | 
dependent  value  is  returned j 

| Lower  Independent 

| Independent  | 

in 

1 

Lower  independent  value  ; 

j Higher  Independent 

j Independent  j 

in 

Higher  independent  value  1 

j Lower  Dependent 

j  Dependent 

in 

1 

Lower  dependent  value  1 

j Higher  Dependent 

(Dependent  | 

in 

Higher  depe<.> .  nt  value  | 

|<return  value> 

(Dependent  j 

out 

1 

Computed  interpolated  value 

3.3.6.7.10.1.4  LOCAL  DATA 


None. 


3.3.6.7.10.1.5  PROCESS  CONTROL 
Not  applicable. 


3.3.6.7.10.1.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General_Purpose_Math) 

function  Interpolate_or_Extrapolate 

(Input  :  in  Independent_Type; 

Lover_Independent  j  in  Independent_Type; 
Higher_Independent  :  in  Independent_Type; 
Lover_Dependent  :  in  Dependent_Type; 
Higher_Dependent  :  in  Dependent_Type) 
return  Dependent_Type  is 


begin 

return  Lower_Dependent  + 

((Input  -  Lower  Independent)  /  (Higher  Independent  -  Lower_Independent) 
*  (Higher_De pendent  -  Lower_Dependent)J ; 


end  Interpolate_or_Extrapolate; 
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3.3.6.7.10.1.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.7.10.1.8  LIMITATIONS 
None. 

3.3.6.7.10.2  SQUARE_R00T  (BODY)  UNIT  DESIGN  (CATALOG  #P40-0) 
This  generic  function  computes  the  Square  Root  of  a  value. 

3.3.6.7.10.2.1  REQUIREMENTS  ALLOCATION 
This  LLCSC  meets  CAMP  requirement  R123. 

3.3.6.7.10.2.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.7.10.2.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  folloving  types  were  defined  in  the  package  specification: 


|  Name 

1  Type  | 

Description  | 

|  Inputs 
j  Outputs 
j  Real 

1 

|  floating  point 
j  floating  point 
j  floating  point 

1 

Data  type  of  input  values 

Data  type  of  output  values 

Unconstrained  type  for  intermediate 
calculations 

FORMAL  PARAMETERS: 

The  folloving  table  describes 

this  unit's  formal  parameters: 

|  Name 

1  Type  | 

Mode  |  Description  | 

|  Input 
j  <return 

|  Inputs  ' 
value>  j  Outputs  | 

in  |  Input  value  to  square  root  operation 
out  j  Result  of  square  root  operation 

CAMP  Software  Detailed  Design  Document 


Page  1398 


4 

3.3.6.7.10.2.4  LOCAL  DATA 
Data  objects: 

The  following  table  summarizes  the  data  objects  maintained  by  the  Sqrt  function 
contained  in  this  package: 


|  Name 

Type 

Description  | 

|  Answer 

Outputs 

Square  root  of  input  value  | 

3.3.6.7.10.2.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.7.10.2.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

with  Polynomials; 

separate  (General_Purpose  Math) 

package  body  SquareRoot  Ts 

package  System  is  new  Polynomials. System  Functions. SquareRoot 

(Inputs  ■>  Real, 

Outputs  «>  Real); 

function  Sqrt  (Input  :  Inputs)  return  Outputs  is 
Answer  :  Outputs; 
begin 

Answer  :=  Outputs(System.Sqrt(Real(Input))); 
return  Answer; 
exception 

when  others  *>  raise  Negative_Input; 
end  Sqrt; 

end  Square_Root; 


3.3.6.7.10.2.7  UTILIZATION  OF  OTHER  ELEMENTS 

The  following  Library  Units  are  with'ed  by  this  unit: 

1.  Polynomials  (Poly),  contains  Square  Root  function 
UTILIZATION  OF  EXTERNAL  ELEMENTS: 

Subprograms  and  task  entries: 

The  following  table  summarizes  the  external  subroutines  and  task  entries 
required  by  this  part: 
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|  Name 

1  Type 

Source 

|  Description  | 

1  Sqrt 

|  function 

Poly 

|  Gives  Square  Root  of  an  input  value  | 

3.3.6.7.10.2.8  LIMITATIONS 

The  exception  "Negative_Input"  is  raised  if  "Input"  is  negative. 

3.3.6.7.10.3  ROOTSUMOFSQUARES  (BODY)  UNIT  DESIGN  (CATALOG  #P41-0) 

This  generic  function  computes  the  root  sum  of  squares  of  three  input  input 
values . 


3.3.6.7.10.3.1  REQUIREMENTS  ALLOCATION 
This  LLCSC  meets  CAMP  requirement  R228. 

3.3.6.7.10.3.2  LOCAL  ENTITIES  DESIGN 
None . 

3.3.6.7.10.3.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  types  were  defined  in  the  package  specification: 

|  Name  |  Bas  Type  |  Description  | 

|Real_Type  (generic  float |Type  of  the  resultant  variable 

j SquaredType  | generic  float j Type  of  the  input  variable 

Subprograms : 

The  following  table  summa,  es  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type  | 

Description  | 

1  Sqrt 

|  function] 

computes  the  square  root  of  an  input  variable  | 

FORMAL  PARAMETERS: 
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The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|x 

|Real  Type  | 

t  in 

| First  of  the  three  input  vars  | 

|Y 

| Real  Type  | 

in 

j Second  of  the  three  input  vars  | 

|z 

|Real  Type  j 

in 

j Third  of  the  three  input  vars  j 

|<return  value> 

j  Real_Type  j 

out 

j Resultant  root  sum  of  squares  1 

3.3.6.7.10.3.4  LOCAL  DATA 


None. 


3.3.6.7.10.3.5  PROCESS  CONTROL 


Not  applicable. 


3.3.6.7.10.3.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 

separate  (General_Purpose_Math) 

function  RootSumOf  Squares  (X  :  RealType; 

Y  :  RealType; 

Z  :  RealType) 
return  Reil_Type  is 

begin 

return  Sqrt  (X*X  +  Y*Y  +  Z*Z); 
end  Root_Sum_Of_Squares; 


3.3.6.7.10.3.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.7.10.3.8  LIMITATIONS 


None. 


3.3.6.7.10.4  SIGN  (BODY)  UNIT  DESIGN  (CATALOG  #P42-0) 

This  unit  is  a  generic  function  which  determines  the  sign  of  an  input  value;  it 
returns  -1  if  input  is  negative,  1  if  non-negative 
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3.3.6.7.10.4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R224. 

3.3.6.7.10.4.2  LOCAL  ENTITIES  DESIGN 
None. 

3.3.6.7.10.4.3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  types  were  defined  in  the  package  specification: 


|  Name 

|  Base  Type 

|  Description  | 

|  Real  Type 

| generic  float | Type  of  the  input  variable  | 

FORMAL  PARAMETERS: 

The  following  table  describes 

this  unit's  formal  parameters: 

|  Name 

1  Type 

|  Mode  |  Description 

|  Input 

1 

|<return  value> 

|Real  Type 

1  " 
j INTEGER 

|  in  (Number  for  which  absolute  value 

|  is  to  be  computed 

|  out  j-1  if  negative;  1  otherwise 

3.3.6.7.10.4.4 

LOCAL  DATA 

Data  objects: 

The  following  data  objects  are 

maintained  by  this  unit: 

|  Name 

1  Type 

|  Description  | 

|Result_Value 

| INTEGER 

|  Stores  result  | 

3.3.6.7.10.4.5  PROCESS  CONTROL 
Not  applicable. 
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3.3.6.7.10.4.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
separate  (General_Purpose_Math) 

function  Sign  (Input_Variable  :  Real_Type)  return  INTEGER  is 
Result_Value  :  INTEGER; 
begin 

if  Input_Variable  >=  0.0  then 
Result_Value  :=  1; 
else 

Result_Value  :=•  -1; 
end  if; 

return  Result_Value; 
end  Sign; 


3.3.6.7.10.4.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.7.10.4.8  LIMITATIONS 


None. 


3.3.6.7.10.5  MEAN_VALUE  (BODY)  UNIT  DESIGN  (CATALOG  #P43-0) 

This  unit  is  a  generic  function  which  computes  the  average  value  of  a  vector  of 
numbers.  The  vector  is  unconstrained;  i.e.,  a  different  number  of  elements  can 
be  averaged  each  time  that  the  function  is  called. 


3.3.6.7.10.5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R144. 


3.3.6.7.10.5.2  LOCAL  ENTITIES  DESIGN 


None. 
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3.3.6.7.10.5.3  INPUT/OUTPUT 


GENERIC  PARAMETERS: 


Data  types: 

The  following  types  were  defined  in  the  package  specification: 


Name  |  Base  Type  \ 


Description 


|Element_Type  | generic  float | Type  of  the  elements  averaged 
|Index_Type  | Discrete  I  Type  of  index  to  vector  j 

|Vector_Type  |ARRAY  |Array  of  "Element_Type"  with  j 

j  j  j  MIndex_Type"  as  the  index  | 


Subprograms: 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type  | 

Description  | 

| "/" 

| function! 

ElementType  :■  Element_Type  /  INTEGER  | 

FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

1  Type  | 

Mode 

|  Description  | 

|Value  Vector 

| Vector  Type  | 

in 

(Values  to  be  averaged 

|<return  value> 

|Element_Typej 

in 

(Average  of  input  values  j 

3.3.6.7.10.5.4 

LOCAL  DATA 

Data  objects: 

The  following  data  objects  are  maintained  by  this  unit: 

|  Name 

1  Type  | 

Description  | 

|Running_Sum  |Element_Type|  Running  sum  of  the  vector's  values  I 
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3.3.6.7.10.5.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.7.10.5.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
separate  (General_Purposr_Math) 

function  Mean_Value  (Value_Vector  :  Vector_Type)  return  Element_Type  is 
Running_Sum  :  Element_Type  :  =  0.0; 
begin 

—  —  Sum  the  values  in  the  input  vector 
for  Index  in  Value_Vec tor' RANGE  loop 

Running_Sum  Running_Sum  +  Value_Vector  (Index); 
end  loop; 

-  Calculate  and  return  the  average  value 

return  RunningSum  /  ElementType  (Value_Vec  tor 'LENGTH); 
end  Mean_Value? 

3.3.6.7.10.5.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.3.6.7.10.5.8  ^IMITATIONS 
None. 

3.3.6.7.10.6  MEAN_ABSOLUTE_DIFFERENCE  (BODY)  UNIT  DESIGN  (CATALOG  #P44-0) 

This  unit  is  a  generic  function  which  compute’’  the  mean  absolute  difference 
(MAD)  of  a  vector,  i.e.,  Avg  (Abs  (Xi  -  Xavg)) 

3.3.6.7.10.6.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R143. 


THIS  REPORT  HAS  NIN  DELIMITED 
AND  CLEARED  COR  PUBLIC  RELIME 

UNDER  DOD  DIRECTIVE  5200,20  AND 

NU  RESTRICTIONS  ARE  IMPOSED  UPON 
ITS  USE  AND  DISCLOSURE. 

DISTRIBUTION  STATEMENT  A 

* 

APPROVED  POR  PUBLIC  RELEASE l 

DISTRIBUTION  UNLIMITED. 
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3.3.6.7.10.6.2  LOCAL  ENTITIES  DESIGN 


None. 


3. 3. 6. 7. .0.6. 3  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  types  were  defined  in  the  package  specification: 


Name  |  Base  Type  |  Description 


|Element_Type 
j Index_Type 
j  VectorType 


{generic  float | Type  of  the  elements  averaged  j 
{Discrete  |Type  of  index  to  vector  j 
|ARRAY  |Array  of  "Element_Type"  with  1 
j  j  "Index_Type"  as  the  index  j 


Subprograms : 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type  | 

Description  | 

|  function | 

Element_Type  :-  Element_Type  /  INTEGER  | 

FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

1  Type  | 

Mode 

|  Description  | 

|Value  Vector 

{Vector  Type  | 

in 

{Input  values  j 

|<return  value> 

|Element_Type| 

in 

|MAD  of  input  vector  j 

3.3.6.7.10.6.4 

LOCAL  DATA 

Data  objects: 

The  following  data  objects  are  maintained  by  this  unit: 
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|  Name 

1  Type  | 

Description  | 

| Average 
jone  Over  N 

| Running  Sum 
j Total  Difference 

| Element_Type| 
(Element  Typej 

1  1 

| Element_Type| 
j Element  Typej 

1  "  1 

Average  value  of  the  input  vector  | 

1  /  N  (N  =  #  of  values  in  the  input 

vector)  | 

Running  sum  of  the  vector's  values  j 
Running  sum  of  the  absolute  j 

difference  between  Xi  and  Xavg  j 

3.3.6.7.10.6.5  PROCESS  CONTROL 
Not  applicable. 

3.3.6.7.10.6.6  PROCESSING 

The  following  describes  the  processing  performed  by  this  part: 
separate  (General_Purpose_Math) 

function  Mean_Absolute_Difference  (Value_Vector  :  Vector_Type) 

return  ElementType  is 

Average  :  ElementType; 

0ne_0ver_N  :  Element_Type; 

Running  Sum  :  Element_Type  0.0; 

Total_Dlf£erence  :  Element_Type  :■  0.0; 

begin 

—  —  Set  up  static  value  used  twice 

0ne_0ver_N  :=  1.0  /  Eleaient_Type  (Value_Vector' Length) ; 

—  —  Calculate  the  average  vector  value 
for  Index  in  Value_Vec tor' RANGE  loop 

Running_Sum  :=  Running_Sum  +  Value_Vector  (Index); 
end  loop; 

Average  Running_Sum  *  0ne_0ver_N; 

—  —  Calculate  and  return  the  MAD 

for  Index  in  Value_Vector' RANGE  loop 

Total_Difference  :=  Total_Dif ference  +  Abs  (Value_Vector  (Index)  -  Average); 


end  loop; 
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return  Total_Dif ference  *  0ne_0ver_N; 
end  Mean_Absolute_Dif ference; 

3.3.6.7.10.6.7  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3.3.6.7.10.6.8 


LIMITATIONS 
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with  Polynomials; 

package  body  General_Purpose_Math  is 

package  body  Lookup_Table_Even_Spacing 

package  body  Lookup_Table_Uneven_Spacing 

package  body  Tvo_Vay_Table_Lookup 

package  body  Incrementor 

package  body  Decrementor 

package  body  Running_Average 

package  body  Change_Calculator 

package  body  Accumulator 

package  body  Change_Accumulator 

package  body  Integrator 

function  Interpolate_Or_Extrapolate 

(Input  :  in  Independent  Type; 

Lover_Independent  :  in  Independent  Type; 
Higher_Independent  s  in  Independent_Type; 

Lover_Dependent  s  in  Dependent_Type; 

HigherDependent  s  in  DependentType) 
return  Dependent JType  is  separate; 

package  body  Square_Root  is  separate; 

function  Root_Sum_Of_Squares  (X  s  Real_Type; 

Y  :  Rr.*al~Type; 

Z  :  Rr?l~Type) 

return  "*Il_Type  is  separate; 

function  Sign  (Input_Variable  :  Reax_Type)  return  INTEGER  is  separate; 

function  Mean_Value  (Value_Vector  :  VectorJType) 

return  Element_Type  is  separate; 

function  Mean_Absolute_Dif ference  (Value_Vector  :  Vector_Type) 

return  Element_Type  is  separate; 


is  separate; 
is  separate; 
is  separate; 
is  separate; 
is  separate; 
is  separate; 
is  separate; 
is  separate; 
is  separate; 
is  separate; 


end  General  Purpose  Math; 
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separate  (General_Purpose_Math) 
package  body  Lookup_Table_Even_Spacing  is 

—  —  Declare  table  step  variable  and  initialize  it  to  the  value  of  the  step 

—  —  between  each  successive  independent  entry 


Internal_Min_Independent_Value  :  constant  Independent_Type 

Minimum_Independent_Value; 

Internal_Max_Independent_Value  :  constant  Independent_Type 

:=  Maximum_Independent_Value; 

Table_Step  :  Independent  Type  := 

(InternaI_Max  Independent_Value  -  Internal_Min_Independent_Value) 
/  Indepen3ent_Type  (Tables' LENGTH  -  1); 

pragma  PAGE; 

procedure  Initialize  (Table  :  out  Tables; 

INDEX  :  in  Index  Type; 

Dependent_Value  :  in  Depen3ent_Type)  is 

begin 

Table  (INDEX)  :*  Dependent_Value; 


end  Initialize; 

procedure  Lookup 

(Table 

Key 

Lover  Independent 


(Table  :  in  Tables; 

Key  s  in  Independent  Type; 

Lover_Independent  s  out  Independent_Type; 
Higher_Independent  :  out  Independent_Type; 
Love r_De pendent  :  out  Dependent_Type; 
Higher_Dependent  :  out  Dependent_Type)  is 


pragma  PAGE; 


INDEX 

Temp_Lower_Independen  t 

Index_Float_Var 

Index_Integer_Var 


Index_Type; 
Independen t_Type; 
Independen  t~Type ; 
INTEGER; 


begin 


—  Raise  exception  if  Key  is  outside  of  table  range 


if  Key  <  Internal_Min_Independent_Value  or  Key  >  Internal_Max_Independent_Value 
raise  Value_0ut_0f_Range; 
end  if; 

ir- 

* 

—  Map  the  key  to  an  index  value 

Index_Float_Var  :=  (Key  -  Internal_Min_Independent_Value)  /  TableStep; 
Index_Integer_Var  :=  INTEGER  (Index_Float_Var) ; 

if  Index  Float_Var  >=  Independen t_Type  (Index_Integer_Var)  then 
Index_Integer_Var  :  ■  Inde.v_Integer_Var  +  1; 
end  if;~ 


INDEX  :=  Index_Type' VAL  (Index_Integer_Var) ; 


CAMP  Software  Detailed  Design  Document 


Page  1411 


—  Adjust  the  index  value  if  the  key  was  mapped  to  the  last  entry 

if  INDEX  =  Index_Type '  LAST  then 
INDEX  :=  Index_Type' PRED  (INDEX); 
end  if; 


—  Return  the  table  values 


Temp_Lover_Independent 
(IndexType' FIRST))  * 


Internal  Min_Independent_Value  + 

(IndepemlentJType  (Index_Type'POS  (INDEX)  -  Index_Type'P< 
Table  Step); 


Lover_Independent  Temp_Lower_Independent; 

Higher_Independent  Temp_Lover~Independent  +  Table_Step; 

Lower_Dependent  :=  Table  (INDEX); 

Higher_Dependent  Table  (Index_Type'SUCC( INDEX)); 


al£*. 

I 


end  Lookup; 
procedure  Lookup 

(Table  :  in  Tables; 

Key  s  in  Independent  Type; 

Loverlndependent  :  out  IndependentType; 
Higher_Independent  :  out  Independent_Type; 
LoverDependent  :  out  DependentType; 
Higher_Dependent  s  out  Dependent  Type; 
KeyLocation  s  out  Key_Range_Flag)  is 

INDEX  :  Index_Type; 

Temp_Lower_Independent  :  Independent_Type; 

Index_Float_Var  :  Independent~Type; 

Index_Integer_Var  :  INTEGER;  r* 

begin 


pragna  PAGE; 


—  Return  the  first  two  rows  of  the  lookup  table  if  Key  is  below  table  range 
if  Key  <  Internal_Min_Independent_Value  then 

Key_Location  :»  Below_Table_Range; 

Loverlndependent  :=  Internal_Min_Independent_Value; 
Higher_Independent  :=  Internal_Min~Independent_Value  +  Table_Step; 

Lower_Dependent  :=  Table  (Index_Type' FIRST) ; 

Higher_Dependent  :=  Table  (Index_Type'SUCC(Index_Type' FIRST)); 

—  Return  the  last  two  rows  of  the  lookup  table  if  Key  is  above  table  range 

elsif  Key  >  Internal_Max_Independent_Value  then 
Key_Location  :=■  Above_Table_Range ; 
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Lover_Independent  :=  Internal_Max_Independent_Value  -  Table_Step; 
Higher_Independent  :=  Internal_Max_Independent_Value; 

Lover_Dependent  :=  Table  (Index_Type'PRED(Index_Type'LAST)) ; 
Higher_Dependent  :=  Table  (Index  Type 'LAST); 


—  Key  is  in  table  range,  so  map  the  key  to  an  index  value  and  return  the 

—  corresponding  values 

else 

Key_Location  In_Table_Range; 


—  Map  the  Key  to  an  Index  value 

Index_Float_Var  :*  (Key  -  Internal_Min_Independent_Value)  /  Table_Step; 
Index_Integer_Var  :*  INTEGER  (Index_Float_Var) ; 

if  Index_Float_Var  >-  Independent_Type  (Index_Integer_Var)  then 
Index_Tnteger_Var  Index_Integer_Var  +1; 
end  if; 

INDEX  s-  Index  Type '  VAL  (Index  Integer  Var); 


—  Adjust  the  Index  if  it  has  been  mapped  to  the  last  entry 

if  INDEX  -  IndexType'LAST  then 
INDEX  :«  Index_Type ' PRED  (INDEX); 
end  if; 

—  Return  the  table  values 


Temp_Lover_Independen  t 
POS(Index_Type' FIRST))  * 


Internal  Min_Independent_Value  + 

(Indepen3ent_Type  (Index_Type'POS  (INDEX)  -  Index_Type 
Table  Step); 


Lover_Independent  j-  Temp_Lower_Independent; 
Higher_Independent  Temp_Lower_Independent  +  Table_Step; 

Lower_Dependent  Table  (INDEX); 

Higher_Dependent  s=  Table  (Index_Type'SUCC( INDEX)); 


end  if; 


end  Lookup; 

end  Lookup_Table_Even_Spacing; 
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> 


separate  (General_Purpose_Math) 

package  body  Lookup_Table_Uneven_Spacing  is 

procedure  Initialize 

(Table  :  out  Tables; 

INDEX  :  in  Index_Type; 

Independent_Value  :  in  Independent_Type; 

Dependent_Value  :  in  Dependent_Type)  is 

begin 


Table  (INDEX) .Independent_Entry  :=  Independent_Value; 
Table  (INDEX) .Dependent_En try  :=  Dependent_Value; 

end  Initialize; 


procedure  Lookup 

(Table  :  in  Tables; 

Key  :  in  Independent_Type; 

Lover_Independent  :  out  IndependentJType; 
Higher_Independent  :  out  Independent_Type; 
Lover_Dependent  :  out  Dependent_Type; 
Higher_Dependent  :  out  Dependent ~Type)  is 


INDEX  s  IndexType; 


begin 


—  Raise  an  exception  if  the  input  key  is  outside  of  the  table  range 

if  Key  <  Table  (Index_Type' FIRST) .Independent  Entry  or 
Key  >  Table  (Index_Type'LAST).Independent_Entry  then 

raise  Value_Out_Of_Range; 

end  if; 


pragma  PAGE; 


pragma  PAGE; 


—  Search  through  the  table  until  the  independent  entry  is  greater  than 

—  or  equal  to  the  Key  or  have  gone  through  the  entire  table  (actually 

—  go  through  one  less  row  than  the  whole  table  since  we  return  two  rows ) 

INDEX  :=  Index_Type'SUCC(Index_Type' FIRST); 

loop 

exit  vhen  (Table  ( INDEX ).Independent_En try  >»  Key); 
INDEX  :«  Index_Type' SUCC  (INDEX); 
end  loop; 


—  Return  the  table  values 

Lover_Independent  :=  Table  (Index_Type'PRED(INDEX)).Independent_Entry; 
Lower_Dependent  :=  Table  (Index_Type'PRED(INDEX)).Dependent_Entry; 
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Higher_Independent  :=  Table  (INDEX) . Independent_Entry; 
Higher_Dependent  :=  Table  (INDEX) .Dependent_Entry; 

end  Lookup; 


procedure  Lookup 

(Table  :  in  Tables; 

Key  :  in  Independent_Type; 

Lover_Independent  :  out  Independent_Type; 
Higher  Independent  :  out  Independent  Type; 
Lover_Dependent  :  out  Dependent_Type; 
HigherDependent  :  out  Dependent~Type; 
Key_Location  :  out  Key_Range_Flag)  is 

INDEX  :  Index_Type; 

begin 


pragma  PAGE; 


—  This  routine  first  checks  to  make  sure  that  the  Key  is  within  the  Table 

—  range:  if  it  is  below,  return  the  first  two  rows;  if  it  is  above,  return 

—  the  last  two  rows;  if  it  is  within  the  range,  find  which  rows  it  is  between 

—  and  return  those  two  rows 

if  Key  <  Table  (Index  Type 'FIRST). Independent  Entry  then 

6 

—  Return  the  first  two  rows  of  the  table  if  key  is  less  than  first  entry  ” 

Key_Location  :*  Belov_Table_Range; 

Lover_Independent  :■  Table  (Index_Type' FIRST).  Independent_Entry; 
Higherlndependent  :«  Table  (IndexType' SUCC  (IndexType ' FIRST) ) .  IndependentEr 


Lover_Dependent  :=  Table  (Index_Type' FIRST) .  Dependent_Entry ; 

Higher_Dependent  :*■  Table  (Index~Type'SUCC  (Index_Type' FIRST) ) .  Dependent_Entry; 

elsif  Key  >  Table  (Index_Type' LAST) .Independent_En try  then 

—  Return  the  last  two  rows  of  the  table  if  key  is  greater  than  last  entry 
Key_Location  Above_Table_Range ; 

Lower_Independent  Table  (Index_Type'PRED  (Index_Type'LAST)) .  Independent_Ent 

Higher_Independent  :=*  Table  (Index_Type'LAST).  Independent_Entry; 

Lover_Dependent  :=  Table  (Index_Type'PRED  (Index_Type'LAST)).  DependentEntry; 
Higher_Dependent  :=  Table  (IndexJType'LAST).  Depeiident_Entry; 

else 

—  Search  through  the  table  until  the  independent  entry  is  greater  than  XjQ 

—  or  equal  to  the  Key  or  have  gone  through  the  entire  table  vV 

Key_Location  :=  In_Table_Range; 

INDEX  :=  Index_Type'SUCC(Index_Type' FIRST); 
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loop 

exit  when  (Table  (INDEX) . Independent_Entry  >=  Key); 
INDEX  :=  Index_Type'SUCC  (INDEX); 

end  loop; 


—  Return  the  table  values 

Lower_Independent  :=  Table  (Index  Type'PRED(INDEX)).Independent_Entry; 
Lover_Dependent  :=  Table  (Index~Type'PRED(INDEX)).Dependent_Entry; 

Higher_Independent  Table  (INDEX). Independent_Entry; 

Higher_Dependent  :=  Table  (INDEX) .Dependent_En try; 

end  if; 

end  Lookup; 

end  Lookup_Table_Uneven_Spacing; 
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separate  (General_Purpose_Math) 
package  body  Incrementor  is 


—  —  Declare  the  Incrementor  and  amount  of  increment  object  and  initialize  them 

—  —  to  values  given  during  instantiation 


Amount_Of_Increment  :  Real_Type  :=  Increment_Amount ; 
Increment_Variable  :  Real_Type  :=  Initial  Value; 


procedure  Reinitialize  (Initial_Value  :  in  Real  Type; 

Increment  Amount  :  in  Real  Type)  is 


begin 


Increment_Variable  Initial_Value; 
Amount_Of_Increment  :*  Increraent_Amount; 
end  Reinitialize; 


function  Increment  return  Real_Type  is 
begin 


pragma  PACE; 


pragma  PAGE; 


—  Increment  and  return  new  value 

IncrementVariable  IncrementVariable  +  AmountOf  Increment; 
return  Increment_Variable; 

end  Increment; 

end  Incrementor; 
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separate  (General_Purpose_Math) 
package  body  Dec remen tor  is 


—  -  Data  Objecis- 


—  —  Each  of  these  objects  is  initialized  to  the  value  given  during  instantiation 


Amount_Of_Decrement  :  Real_Type  :=  Decrement_Amount; 
Decrement  Variable  :  Real~Type  Initial  Value; 


procedure  Reinitialize  (Initial_Value 

Decrement  Amount 


begin 


in  Real_Type; 
in  Real_Type)  is 


Decrement_Variable  :=  Initial_Value; 
Amount_Of_Decrement  :*  Decrement_Amount ; 
end  Reinitialize; 

function  Decrement  return  Real_Type  is 
begin 


pragma  PAGE; 


pragma  PAGE; 


—  Decrement  and  return  new  value 

Decrement_Variable  Decrement_Variable  -  Amount_Of_Decrement; 
return  DecrementVariable; 

end  Decrement; 


end  Decrementor; 
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separate  (General_Purpose_Math) 
package  body  Running_Average  is 

—  —  Declare  Sum  and  Count  variable  and  initialize  them  to  values  given  at 

—  —  instantiation 


Sum  :  Real_Type  :=  Initial_Sum; 

COUNT  :  INTEGER  :=  Initial  Count; 


procedure  Reinitialize  (Initial_Sum  :  in  Real_Type; 

Initial  Count  :  in  INTEGER)  is 


begin 


Sum  Initial_Sum; 

COUNT  :=  InitialCount; 

end  Reinitialize; 


procedure  Reinitialize  (Initial_Count  :  in  INTEGER)  is 
begin 


pragma  PAGE; 


pragma  PAGE; 


COUNT  :*  Initial_Count; 
end  Reinitialize; 

function  CurrentAverage  (NevValue 


pragma  PAGE; 

RealType)  return  RealType  is 


begin 


—  Do  average  calculation 

Sum  :«  Sum  +  Nev_Value; 
COUNT  :=  COUNT  +  1; 

return  Sum  /  COUNT; 

end  Current_Average; 


end  Running_Average ; 
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separate  (General_Purpose_Math) 
package  body  Accumulator  is 


—  —  Declare  accumulator  variable  and  set  it  to  the  value  given  during 

—  —  instantiation 

Accumulated_Value  :  Element_Type  :=  Initial_Value; 
procedure  Reinitialize  (Initial_Value  :  in  Element_Type)  is 
begin 

Accumulated_Value  Initial_Value; 

end  Reinitialize; 

procedure  Accumulate  (Nev_Value  :  in  Element_Type)  is 
begin 

—  Add  input  value  to  accumulator 

Accumulated_Value  Accumulated_Value  +  Nev_Value; 

end  Accumulate; 

procedure  Accumulate 

(Nev_Value  :  in  Element_Type; 

Retrieved_Value  :  out  Element_Type)  is 

begin 

—  Add  input  value  to  accumulator 

Accumulated_Value  :*  Accumulated_Value  +  Nev_Value; 

—  return  new  accumulator  value 
Retrieved_Value  :■  Accumulated_Value; 
end  Accumulate; 

function  Retrieve  return  Element  Type  is 
begin 

—  Retrieve  Accumulator  Value; 
return  Accumulated_Value; 
end  Retrieve; 


pragma  PAGE; 


pragma  PAGE; 


pragma  PAGE; 


pragma  PAGE; 


end  Accumulator; 
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separate  (General_Purpose_Math) 
package  body  Change_Accumulator  is 

—  —  Declare  accumulator  and  previous  value  objects  and  initialize  them  to 

—  —  values  given  during  instantiation 


Accumulator  :  Element_Type  :=  Initial_Accumulator  Value; 

Previous_Value  :  Element_Type  :=  Initial_Previous_VaIue; 

pragma  PAGE ; 

procedure  Reinitialize  (Initial_Accumulator_Value  :  In  Element_Type)  is 
begin 


Accumulator  :=  Initial  Accumulator  Value; 


end  Reinitialize; 
procedure  Reinitialize 
begin 


(Initial_Accumulator  Value 
Initial  Previous  Value 


pragma  PAGE; 
:  in  Element_Type; 

:  in  Element  Type)  is 


Previous_Value  :«  Initial_Previous_Value; 

Accumulator  Initial_Accumulator_Value; 
end  Reinitialize; 

procedure  Accumulate_Change  (New_Value  :  in  Element_Type)  is 
begin 


pragma  PAGE; 


—  Add  change  to  accumulator  and  reset  PV 


Accumulator  Accumulator  +  Nev_Value  -  Previous  Value; 
Previous  Value  :=  New  Value; 


end  Accuiriulate_Change; 

procedure  Accumulate  Change 
(Nev_VaIue 

Retrieved_Accumulator_Value 

begin 


pragma  PAGE; 


in  Element_Type; 
out  Element_Type)  is 


—  Add  change  to  accumulator  and  reset  PV 

Accumulator  :=  Accumulator  +  Nev_Value  -  Previous_Value; 
Previous_Value  :=  New_Value; 

—  Return  new  accumulated  value 
Retrieved_Accumulator_Value  :=  Accumulator; 

end  Accumulate_Change; 

function  Retrieve_Accumulation  return  Element_Type  is 
begin 


pragma  PAGE; 
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return  Accumulator; 
end  Retrieve_Accumulation; 

pragma  PAGE; 

function  Retrieve_Previous_Value  return  Element_Type  is 
begin 

return  Previous_Value; 
end  Retrieve  Previous  Value; 


end  Change  Accumulator; 
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separate  (General_Purpose_Math) 
package  body  Change_Calculator  is 

—  —  Declare  previous  value  object  arid  initialize  it  to  value  specified 

—  —  during  instantiation 

PreviousValue  :  Element_Type  :=  Initial_Value; 

pragma  PAGE; 

procedure  Reinitialize  (Initial_Value  :  in  Element_Type)  is 
begin 

Previous_Value  : *  Initial_Value; 
end  Reinitialize; 

pragma  PAGE; 

function  Change  (NewValue  :  Element_Type)  return  Element_Type  is 
ChangeAmount  :  Element  Type; 
begin 

—  Calculate  change  and  update  Previous  Value 

Change_Amount  : -  Nev_Value  -  Previous_Value; 

Previous_Value  New_Value; 

—  return  Change 

return  Change_Amount; 
end  Change; 

pragma  PAGE; 

function  Retrieve_Value  return  Element_Type  is 
begin 

return  Previous_Value; 
end  Retrieve  Value; 


end  Change_Calculator; 
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separate  (General_Purpose_Math) 
package  body  Integrator  is 


—  —  Declare  the  dependent  and  independent  objects  and  initialize  them  to  the 

—  —  values  specified  at  instantiation 


Dependent_Value  .  Dependent_Type  :=  Initial_Dependent_Value; 

Previous_fndependent_Value  s  Independent_Type  :=  Initial_Independent_Value; 

pragma  PAGE; 

procedure  Reinitialize  (Initial_Dependent_Value  :  in  Dependent_Type; 

Initial~Independent  Value  :  in  Independent  Type)  is 


begin 


Dependent_Value  :=  Initial_Dependent_Value; 
Previous_Tndependent_Value  :■  Initial_Tndependent_Value; 


end  Reinitialize; 

procedure  Update  (Current_Independent_Value 
begin 


pragma  PAGE; 
in  Independent_Type)  is 


Previous_Independent_Value  :»  Current_Independent_Value; 


end  Update; 


pragma  PAGE; 

function  Integrate  (Current  Independent  Value  :  Independent_Type; 

Delta_Tlme  :  Time_Interval  Default_DeltaTime) 
return  Dependent_Type  is 

begin 


—  Integrate  new  independent  value  across  specified  lime  interval 

Dependent_Value  s-  Dependent  Value 

+  ( (Previous_Indepen3ent_Value  +  Current_Independent_Value)  *  0.5) 
*  Delta_Time; 

—  Update  previous  independent  value  and  return  new  dependent  value 

Previous_Independent_Value  :«  Current_Independent_Value; 
return  Dependent_Value; 

end  Integrate; 


end  Integrator; 
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separate  (General_Purpose_Math) 

function  Interpolate_Or_Extrapolate 

(Input  :  in  Independent_Type; 

Lover_Independent  :  in  Independent_Type; 
Higherlndependent  :  in  Independent_Type; 
Lower  Dependent  :  in  Dependent_Type; 
Higher_Dependent  :  in  Dependent_Type) 
return  Dependent_Type  is 


begin 

return  Lower_Dependent  + 

((Input  -  Lower  Independent)  /  (Higher  Independent  -  Lover_Independent) 
*  (Higher_Depen3ent  -  Lower_Dependent)T; 

end  Interpolate_Or_Extrapolate; 
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with  Polynomials; 

separate  (General_Purpose  Math) 

package  body  SquareRoot  Is 

package  SYSTEM  is  new  Polynomials. System  Functions. Square_Root 

(Inputs  =>  Real, 

Outputs  =>  Real); 

function  Sqrt  (Input  :  Inputs)  return  Outputs  is 
Answer  :  Outputs; 
begin 

Answer  :=  Outputs(SYSTEM.Sqrt(Real(Input))); 
return  Answer; 
exception 

when  others  =>  raise  Negative_Input; 
end  Sqrt; 


end  Square  Root; 
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separate  (General_Purpose_Math) 

function  Root_Sum_Of_Squares  (X  :  Real_Type; 

Y  :  Real_Type; 

Z  :  RealJType) 
return  RealJType  is 

begin 

return  Sqrt  (X*X  +  Y*Y  +  Z*Z); 
end  Root  Sum  Of  Squares; 
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separate  (General_Purpose_Math) 

function  Sign  (Input_Variable  :  Real_Type)  return  INTEGER  is 
Result  Value  :  INTEGER; 
begin 

if  Input_Variable  >=  0.0  then 
Result_Value  :=  1; 
else 

Result_Value  :=  -1; 
end  if; 

return  Result  Value; 


end  Sign; 
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separate  (General_Purpose_Math) 

function  Mean_Value  (Value_Vector  :  Vector_Type)  return  Element_Type  is 
RunningSum  :  Element_Type  :=  0.0; 

begin 

—  —  Sum  the  values  in  the  input  vector 

for  INDEX  in  Value_Vector' range  loop 

Running_Sum  :=  Running_Sum  +  Value_Vector  (INDEX); 
end  loop; 

—  —  Calculate  and  return  the  average  value 

return  Running_Sum  /  Element_Type  (Value_Vector' LENGTH) ; 


end  Mean  Value; 
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separate  (General_Purpose_Math) 


function  Mean_Absolute_Dif ference  (Value_Vector  :  Vector_Type) 

return  Element  Type  is~ 


Average 
0ne_0ver_N 
Running  Sum 
Total  Difference 


:  Element_Type; 

:  Element_Type; 

:  Element_Type  :=  0.0; 
:  Element~Type  :  =  0.0; 


begin 


—  —  Set  up  sialic  value  used  twice 

0ne_0ver_N  :=  1.0  /  Element_Type  (Value_Vector' LENGTH) ; 


—  —  Calculate  the  average  vector  value 

for  INDEX  in  Value_Vec tor'  range  loop 

Running_Sum  :=»  Running_Sura  +  Value_Vector  (INDEX); 

end  loop; 

Average  :■  Running_Sum  *  0ne_0ver_N; 

—  —  Calculate  and  return  the  MAD 

for  INDEX  in  Value_Vec  tor 'range  loop 

To tal_Dif ference  s-  Total_Dif ference  +  abs  (Value_Vector  (INDEX)  -  Average); 
end  loop; 

return  To tal_Dif ference  *  0ne_0ver_N; 
end  Mean  Absolute  Difference; 
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separate  (General_Purpose_Math) 
package  body  Two_Way_Table_Lookup  is 

function  Inter_Or_Extra_X  is  new  General_Purpose  Math. 

Interpolate  Or  Extrapolate 

(Indepen3enI_Type  =>  Y_Values, 
Dependent_Type  =>  X_Values); 

function  InterOrExtraY  is  new  General_Purpose  Math. 

Interpolate  Or_Extrapolate 

(Indepen3ent_Type  =>  X_Values, 
Dependent_Type  *>  Y_Values); 


procedure  Initialize(  Table 

:  out 

Tables ; 

INDEX 

:  in 

Indices ; 

X 

:  in 

X_Values ; 

Y 

:  in 

YJValues  )  is 

begin 

Table. Table_X(  INDEX  ) 

X; 

Table. Table_Y(  INDEX  )  :=  Y; 
end  Initialize; 


function  Lookup_X  (  Table 

Input 


Tables; 

Y  Values  )  return  X  Values  is 


Higher_Dept 

Higher_Indept 

INDEX  “ 

Lower_Dept 

Lower_Indept 

Result 


X_Values ; 
Y_Values ; 
Indices; 
XValues ; 
YValues ; 
X  Values; 


begin 

—  if  the  input  value  is  out  of  bounds,  then  extrapolate  for  the 

—  required  value 

if  Input  <  Table. Table_Y(  Indices' FIRST)  then 

Lower_Indept:»  Table. Table  Y(  Indices'FIRST  ); 

Higher_Indept  Table. TabIe_Y(  Indices' SUCC(Indices'FlRST)  ); 

Lower_Dept:-  Table. Table  X(  Indices'FIRST  ); 

Higher_Dept  Table. Table  X(  Indices'SUCC(Indices'FIRST)  ); 

Result  Inter_Or_Extra_Xl  Input  »>  Input, 

Lower_Independent  ■>  Lower_Indept , 
Higher_Independent  ■>  Higher_Indept, 
Lower_Dependent  ■>  Lower_Dept, 
Higher_Dependent  ->  Higher_Dept  ); 

elsif  Input  >  Table. Table_Y(  Indices' LAST)  then 

Higher_Indept  :*  Table. Table_Y(  Indices'LAST  ); 

Lower_Indept  :=  Table. Table_Y(  Indices'PRED(Indices'LAST)  ); 

Higher_Dept  :=  Table. Table  X(  Indices'LAST  ); 

Lower_Dept  s»  Table. Table_5?(  Indices'PRED(Indices'LAST)  ); 

Result  s ■  Inter_Or_Extra_X(  Input  ■>  Input, 

Lower_Independent  ->  Lower_Indept , 
Higher_Independent  ->  Higher_Indept , 
Lower_Dependent  ->  Lower_Dept, 
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Higher_Dependent  =>  Higher_Dept  ); 

else  —  the  input  value  is  in  the  bounds  of  the  table 

—  Search  through  the  table  until  the  independent  entry  is  greater  than 

—  or  equal  to  the  Key  (Input)  value.  Note  that  the  value  will  be 

—  found  in  the  table  since  out-of-bounds  values  have  already  been 

—  checked  for.  Start  with  the  successor  of  the  first  element  so  that 
—  FRED  will  be  defined  if  Input  is  equal  to  the  first  element. 

INDEX  :=  Indices' SUCC(  Indices' FIRST  ); 

Find_Value: 

loop 

exit  when  (Table. Table_Y(  INDEX  )  >=  Input); 

INDEX  :=  Indices 'SUCC(  INDEX  ); 
end  loop  Find_Value; 

—  Save  the  table  values. 

Lower_Indept  :*  Table. Table_Y(  Indices 'PRED(INDEX)  ); 

Lover_Dept  :=  Table. Table_X(  Indices' PRED(INDEX)  ); 

Higherlndept  s-  Table. Table_Y(  INDEX  ); 

HigherDept  Table. Table_X<  INDEX  ); 

—  Check  to  see  if  the  value  needs  to  be  interpolated  -  that  is, 

—  if  the  value  is  not  equal  to  one  of  the  boundary  values. 

If  ( Input  ■  Higherlndept)  then 
Result  HigherDept; 

elsif  (Input  -  Lover_Indept)  then 
Result  :«  Lover_Dept; 

else  —  Value  is  between,  so  interpolate 

Result  :=  Inter_Or_Extra_X(  Input  ->  Input, 

Lover_Independent  »>  Lower_Indept , 
Higher_Independent  ->  Higher_Indept, 
Lover_Dependent  ->  Lover_Dept, 
Higher_Dependent  »>  Higher_Dept  ); 
end  if;  —  Value  is  between,  so  interpolate 

end  if;  —  the  input  value  is  in  the  bounds  of  the  table 

return  Result; 
end  Lookup_X; 

function  Lookup_Y  (  Table  s  Tables; 

Input  :  X_Values  )  return  Y  Values  is 


Higher_Dept 

Higher_Indept 

INDEX 

Lover_Dept 

Lover_Indept 

Result 


Y_Values ; 
X~Values ; 
Indices; 
Y_Values ; 
X_Values ; 
Y  Values; 


begin 


—  if  the  input  value  is  out  of  bounds,  then  extrapolate  for  the 

—  required  value 


CAMP  Software  Detailed  Design  Document 


Page  1432 


if  Input  <  Table. Table_X(  Indices '  FIRST)  then 
Lower_Indept : =  Table. Table  X(  Indices' FIRST  ); 

Higherlndept  :=  Table. TabIe_X(  Indices' SUCC(Indices' FIRST)  ); 
Lower_Dept:=  Table. Table_Y(  Indices 'FIRST  ); 

Higher_Dept  :=  Table. Table_Y(  Indices' SUCC(Indices' FIRST)  ); 
Result  :=  Inter_Or_Extra_Y(  Input  =>  Input, 

Lover_Independent  =>  Lower_Indept , 
Higher_Independent  =>  Higher_Indept , 
Lover_Dependent  =>  Lover_Dept, 
Higher_Dependent  ->  Higher_Dept  ); 
elsif  Input  >  Table. Table_X(  Indices' LAST)  then 
Higher_Indept  :=  Table. Table_X(  Indices 'LAST  ); 

Lover_Indept  :=  Table.  Table_X(  Indices'  PRED(  Indices 'LAST)  ); 
Higher_Dept  Table. Table_Y(  Indices'LAST  ); 

Lower_Dept  :*  Table. Table  Y(  Indices'  PRED(  Indices 'LAST)  ); 

Result  Inter_Or_ExtraJ?(  Input  *>  Input, 

Lower_Independent  =>  Lower_Indept , 
Higher_Independent  *>  Higher_Indept, 
Lover_Dependent  =>  Lower_Dept, 
Higher_Dependent  =>  Higher_Dept  ); 

else  —  the  input  value  is  in  the  bounds  of  the  table 

—  Search  through  the  table  until  the  independent  entry  is  greater  than 

—  or  equal  to  the  Key  (Input)  value.  Note  that  the  value  will  be 

—  found  in  the  table  since  out-of-bounds  values  have  already  been 

—  checked  for.  Start  with  the  successor  of  the  first  element  so  that 

—  PRED  will  be  defined  if  Input  is  equal  to  the  first  element. 

INDEX  :«  Indices 'SUCC(  Indices' FIRST  ); 

Find_Value: 

loop 

exit  vhen  (Table. Table_X(  INDEX  )  >-  Input); 

INDEX  Indices' SUCC(  INDEX  ); 
end  loop  Find_Value; 

—  Save  the  table  values. 

Lover_Indept  Table. Table_X(  Indices 'PRED( INDEX)  ); 

Lover_Dept  Table. Table_Y(  Indices' PRED( INDEX)  ); 

Higher_Indept  :=  Table. Table_X(  INDEX  ); 

Higher_Dept  :=  Table. Table_Y(  INDEX  ); 

—  Check  to  see  if  the  value  needs  to  be  int  pointed  -  that  is. 

—  if  the  value  is  not  equal  to  one  of  the  b<  mdary  values. 

if  (Input  *  Higher_Indept)  then 
Result  :=  Higher_Dept; 
elsif  (Input  =  Lover_Indept)  then 
Result  :=  Lover_Dept; 

else  —  Value  is  between,  so  interpolate 

Result  Inter_Or_Extra_Y(  Input 

Lover_Independent 
H ighe r  I ndependen  t 
Lover  Dependent 


•>  Input, 

•>  Lover_Indept, 
->  Higher_Indept, 
=>  Lover_Dept, 
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Higher_Dependent  =>  Higher_Dept  ); 

end  if;  —  Value  is  between,  so  interpolate 

end  if;  —  the  input  value  is  in  the  bounds  of  the  table 

return  Result; 
end  Lookup_Y; 

end  Tvo_Way_Table_Lookup; 
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